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This  report  documents  the  theoretical  basis,  development,  and^c^mputational 
structure  of  a numerical  computer  analysis  routine  incorporated  in  the  US  Army 
Experimental  Prototype  Automatic  Meteorological  System  (EPAMS)  'for  the  estima- 
tion of  surface  layer  wind  fields  at  sub-mesoscale  resolution  (&)100  meters) 
over  a limited  area  in  broken  topography.  The  geographically  re-locatable 
analysis  exploits  detailed  topographic  Information  but  requires  only  limited 
meteorological  information.  The  physically-based  analysis  uses  Gauss'  Prlncipli  - 
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20  ABSTRACT  (cont) 

of  Least  Constraints  for  a variational  adjustment  of  an  Initial  estimated  wind 
field  In  a single  surface  layer  to  conform  with  terrain  structure'!  mass  conser- 
vation* and  buoyancy  forces.  Fields  of  surface  air  temperature  are  also  pro- 
duced. Initial  meteorological  Input  Is  obtained  from  the  EPAMS  data  base  by  an 
automated  analysis  which  Is  described  In  detail.  The  segmentation  structure  of 
the  computational  program  levels  Is  presented.  Appendices  provide  user  Instruc- 
tions, detailed  algorithms,  and  example  wind  field  estimates. 
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INTRODUCTION 


A successful  method  to  detennine  surface  wind  fields  at  high  resolution 
in  varied  conditions  of  weather  and  topography  would  find  many  applications 
supporting  U.S.  Army  operations.  This  report  describes  a numerical  computer 
analysis  routine,  developed  under  contract  by  Mission  Research  Corporation, 
whose  objective  is  to  supply  high  resolution  ('v  100m)  estimates  of  surface 
layer  wind  fields  over  a limited  area  taking  into  account  both  rugged  topo- 
graphy and  thermal  structure.  This  numerical  analysis  which  uses  limited 
meteorological  input  data  but  detailed  terrain  data  is  incorporated  as  a sub- 
ordinate element  in  the  Experimental  Prototype  Automatic  Meteorological  System 
(EPAMS)  at  the  Atmospheric  Sciences  Laboratory,  White  Sands  Missile  Range. 

I.l  Scope  of  Work  in  EPAMS 

The  high  resolution  wind  analysis  implemented  in  the  EPAMS  embodies 
an  innovative  approach  to  meet  the  challenge  posed  by  the  problem  of  wind  esti- 
mation at  high  resolution  in  broken  topography.  The  method  rests  upon  the 
physical  equations  of  mass  conservation  and  of  momentum  conservation,  but 
employs  these  principles  in  the  special  variational  form  of  Gauss'  Principle 
of  Least  Constraints.^®  Gauss'  Principle  distinguishes  external  forces  on 
a mechanical  system  from  internal  constraint  forces  arising  from  constraint 
conditions.  According  to  Gauss'  Principle  the  equations  of  motion  are  satis- 
fied when  these  latter  constraint  forces  are  minimized.  Starting  from  an 
initial  estimate  the  analysis  results  are  obtained  by  a direct  variational 
relaxation  of  wind  and  temperature  fields  in  the  surface  layer  to  minimize 
the  constraint  forces  imposed  by  the  warped  terrain  surface,  thermal  structure 
and  the  requirement  of  flow  continuity.  The  application  of  this  prodedure 
to  the  surface  layer  requires  also  the  systematic  use  of  empirically  established 
surface  layer  profiles,®  whose  parameters  are  internally  computed  by  the  surface 
layer  analysis. 

For  operation  within  the  EPAMS  the  surface  layer  analysis  needs  not 
only  detailed  topographic  data  but  also  initial  estimates  of  wind  and  temperature 
fields  over  the  restricted  simulation  area.  Although  these  estimates  can 
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optionally  be  entered  directly  by  the  user,  an  automated  data  acquisition  and 
data  analysis  procedure  is  provided  to  routinely  generate  the  meteorological 
input  required  by  the  surface  layer  analysis  from  data  stored  in  the  EPAMS 
data  base.  These  data  consist  of  quality  controlled  observations  (both  upper 
air  and  surface),  output  from  lower  resolution  mesoscale  models,  and  predictions 
of  the  USAF  Global  Weather  Central  "fine-mesh"  model.  They  embrace  two  geographic 
areas,  the  southwestern  United  States  and  Europe.  The  spatial  resolution  of 
these  data  is  typically  of  the  order  of  100-200  km  which  requires  the  data 

e 

analysis  to  bridge  a factor  of  perhaps  50  in  scale  to  obtain  an  estimate  of 
wind  and  temperature  at  the  small  ('^/  10km  dimension)  simulation  area.  Although 
a reliable  mesoscale  model  could  perhaps  best  perform  this  data  analysis  function, 
suitable  mesoscale  model  output  is  not  always  available  in  the  data  base. 
Therefore,  the  automated  data  analysis  produces  estimates  used  for  the  local 
surface  wind  analysis  without  requiring  the  use  of  a mesoscale  model.  The 
diversity  of  data  types  and  their  varying  relevance  requires  several  alternative 
techniques  or  combinations  of  techniques.  Consequently  the  data  acquisition 
and  analysis  routines  comf)rise  a major  portion  of  the  total  software  package 
needed  to  implement  the  surface  layer  wind  analysis  in  EPAMS. 

The  surface  layer  analysis  in  EPAMS  is  based  upon  physical  principles 
end  incorporates  many  well-verified  features,  but  it  does  contain  approximations 
the  validity  of  which  is  not  established.  In  particular,  restriction  of  the 
computation  to  only  the  surface  layer,  without  additional  vertical  structure, 
may  constitute  an  important  limitation.  This  new  approach  to  a difficult 
problem  area  will  require  adequate  testing  and  observational  validation. 

1.2  Organization  of  Report 

There  are  two  aspects  of  the  surface  layer  analysis  in  EPAMS;  the 
scientific  basis  for  both  the  wind  analysis  itself  and  for  the  data  analysis 
procedures  required  to  furnish  its  input,  and,  the  actual  computational  al- 
gorithms and  structure  built  to  implement  the  analysis.  The  organization  of 
this  report  reflects  these  two  aspects. 
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Section  II  presents  a justification  for  the  computational  approach  in 
terms  of  objectives  and  requirements  of  the  surface  layer  analysis.  Through 
a detailed  discussion  of  the  application  of  Gauss'  Principle  of  Least  Constraints 
to  the  surface  layer  the  theoretical  basis  of  the  high  resolution  wind  analysis 
is  established. 

Section  III,  also  substantially  cheoretical,  describes  the  various 
methods  of  data  analysis  used  to  determine  from  meteorological  data  stored 
in  the  EPAMS  data  base  the  input  information  required  for  operation  of  the  local 
surface  wind  model. 

Sections  IV,  V,  VI  describe  the  program  structure  in  terms  of  logic, 
segmentation,  and  operational  function  of  its  constituent  elements.  Section 
IV  is  a general  overview  of  the  large  scale  structure  while  Section  V details 
the  organization  of  major  segments  and  describes  the  functions  of  their  sub- 
ordinate elements.  Computational  segments  are  cross-referenced  to  the  appro- 
priate theory  of  Sections  II  and  III.  Section  VI  contains  a description  of 
some  independent  utility  programs  constructed  to  facilitate  the  use  of  the 
surface  layer  analysis. 

Section  VII  provides  some  general  conclusions  relating  to  the  analysis 
technique  and  describes  some  possibilities  of  future  development. 

Some  important,  but  detailed,  matters  are  treated  in  the  appendices. 
Appendix  A is  a users  manual  containing  descriptions  of  program  files,  inputs, 
and  user  options.  Appendix  B provides  mathematical  detail  of  the  basic  algorithms 
used  by  the  surface  layer  wind  analysis.  Appendix  C illustrates  the  results 
obtained  by  trial  runs  of  the  high  resolution  surface  wind  analysis.  Appendix 
D completes  the  program  documentation  by  providing  a complete,  conmented  FORTRAN 
listing  of  all  programs  developed  for  the  surface  layer  analysis. 
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II.  HIGH-RESOLUTION  SURFACE  LAYER  WIND  ANALYSIS 

The  ba-ic  analysis  routine  to  produce  the  high-resolution  wind  esti- 
mate employs  an  extension  of  the  concepts  described  in  BALL  (1975);  an  inter- 
nal report  of  Mission  Research  Corporation.  Starting  from  initial  rough 
estimates  of  the  wind  and  temperature  fields  in  the  surface  layer,  a direct 
variational  relaxation  is  performed  to  minimize  the  "constraint"  in  the  sense 
of  Gauss'  Principle  of  Least  Constraints^*^  as  applied  to  fluid  flows.  The 
computation  uses  one  constant-thickness  layer,  the  volume  between  a user 
selected  computation  height  and  the  terrain  surface.  Within  the  warped  compu- 
tational layer  which  follows  the  terrain  the  wind  and  temperature  fields  are 
adjusted  as  permitted  by  terrain  geometry  and  conservatin  laws  to  minimize 
the  dynamic  constraint.  The  resulting  wind  and  temperature  fields  provide 
an  estimate  conformable  with  input  information  and  physical  laws. 

The  choice  of  this  somewhat  novel  approach  is  governed  by  objective 

I 

considerations  of  input  data  limitations,  operational  requirements,  and 
physical  phenomenology.  Below  we  discuss  these  considerations  to  show  how 
they  justify  the  method  selected.  Subsequently  we  discuss  Gauss'  Principle 
of  Least  Contraint  for  fluids  and  its  application  to  the  dynamics  of  the 
I atmospheric  surface  layer.  The  implementation  of  these  concepts  in  the  finite 

difference  numerical  code  is  described  in  Section  V.4  and  Appendix  B. 

I II.  1 PERFORMANCE  OBJECTIVES 

i 

The  objectives  of  the  sub-mesoscale  wind  analysis  within  the  EPAMS 
i are  as  follows. 

I The  numerical  model  should  provide  horizontal  resolution  of  the  order 

of  60-400  meters,  a scale  far  smaller  than  typical  mesoscale  resolution, 
sufficient  to  resolve  the  mechanical  and  thermal  effects  of  small  scale 
topographic  features  and  variations  in  characteristics  of  the  earth/atmosphere 
. interface.  In  particular  the  model  should  operate  in  rough  terrain  where 
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slopes  and  changes  of  slope  may  be  large  and  abrupt.  Commensurate  with  the 
horizontal  resolution  the  modeled  area  comprises  a region  only  5-20  km  on 
a side  or  25-400  square  kilometers  in  area. 

Only  winds  within  the  atmospheric  surface  layer  adjacent  to  the 
terrain  surface  are  desired.  The  vertical  resolution  of  the  model  may  be 
limited  to  the  surface  layer,  no  more  than  50  meters  above  the  ground. 

The  model  should  be  applicable  at  arbitrary  locations  at  any  time 
of  day  and  under  a large  class  of  prevailing  meteorological  conditions.  It 
should  be  re-locatable  geographically  and  as  versatile  as  possible. 

Temporal  variation  of  the  windfield  within  the  limited  spatial  area 
of  the  simulation  may  be  considered  quasi-steady.  The  model  itself  need 
include  no  time-dependence  but  should  produce  windfields  dependent  upon  input 
variables  which  themselves  exhibit  significant  variation  only  over  time 
intervals  of  one  hour  or  more. 

The  model  should  be  capable  of  operation  with  minimal  meteorological 
input  of  much  lower  spatial  resolution  than  the  resolution  of  the  model. 
Typically  input  data  might  consist  of  general  stratification  and  estimates 
of  general  surface  wind  in  the  modeled  area.  These  estimates  may  derive 
from  any  source;  automated  data  analysis,  mesoscale  models  of  coarser  resolu- 
tion, or  standard  forecasts.  In  this  specific  application  the  estimates 
are  derived  by  automated  analysis  of  data  resident  in  the  EPAMS  data  base. 

II. 2 REQUIRED  PHYSICAL  AND  COMPUTATIONAL  CHARACTERISTICS 

Achievement  of  the  feature  of  general  applicability  requires  that 
the  high-resolution  wind  analysis  rest  as  directly  as  possible  upon  the  basic 
physics  underlying  the  phenomena.  The  need  for  special  computational  para- 
meterization, requiring  extensive  measurements  or  testing,  decreases  in  pro- 
portion to  the  generality  of  the  principles  successfully  embodied  in  the 


calculation.  Well  established  empirical  parameterization  of  general  applica- 
bility can,  however,  provide  computational  economies  and  can  permit  incorpora- 
tion of  detail  difficult  or  impossible  to  model  physically. 

The  feature  of  limited  area  allows  an  analysis  based  upon  a steady- 
state,  diagnostic  application  of  the  governing  equations.  A steady-state 
model  can  be  structured  to  incorporate  the  significant  terrain  and  thermal 
effects  and  to  average  transient,  fine  scale,  time-dependent  eddy  structure. 

A spatially  extrapolative/interpolative  model  is  capable  of  incorporating 
the  effects  of  local  inhomogeneities  upon  the  wind  field.  Temporal  dependence 
over  time  intervals  exceeding  one  hour  can  be  provided  by  alteration  of 
meteorological  input  parameters. 

The  model  structure  should  reflect  the  lack  of  resolution  and  detail 
in  meteorological  input.  A rational  model  must  be  structured  to  utilize 
maximally  the  available  input  without  either  explicitly  or  implicitly 
assuming  more  information  than  the  input  provides.  It  should  have  the 
character  of  an  estimation  in  a limited  information  situation.  Detailed 
topographic  information,  the  physical  laws  of  fluid  dynamics,  general 
empirical  surface  layer  profiles,  plus  limited  meteorological  input  data 
constitute  the  information  to  be  used.  The  conventional  approach  of  solving 
a boundary  value  problem  requires  assumptions  of  boundary  values  which  are 
not  adequately  provided  by  the  input  information.  In  a situation  of  limited 
information  direct  variational  methods,  which  incorporate  the  physical 
phenomenology  but  which  do  not  require  solution  of  a boundary  value  problem, 
seem  particularly  appropriate.  Both  boundary  and  interior  values  of  wind 
and  temperature  can  be  varied  to  optimize  the  fields  consistent  with  the 
constraints  imposed  by  input  data,  physical  laws,  atmospheric  stratification 
and  topographic  structure.  A variational  model  will  not  produce  an  exact 
or  unique  solution,  but  rather  a useful  estimate  conformable  with  the  avail- 
able information. 

Terrain  sheltering  and  channeling,  wakes,  and  flow  separation  are 
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features  of  wind  flow  in  rugged  terrain.  These  phenomena  originate  from  the 
non-linear  inertial  character  of  the  flow  interacting  with  the  terrain  sur- 
face. The  non-linear  advective  terms  of  the  equations  of  motion  can  be 
dominant  at  the  small  scales  considered.  Therefore  a computational  procedure 
based  upon  the  momentum  equation,  including  advective  terms,  is  indicated. 

The  turbulent  character  of  flows  in  the  atmospheric  boundary  layer 
poses  a challenge  which  any  physical  model  must  confront.  If  the  entire 
atmospheric  boundary  layer  is  modeled  the  inclusion  of  turbulence  and  its 
effect  upon  the  flow  is  unavoidable.  Near  the  surface,  within  the  "surface 
layer",  however,  vertical  fluxes  of  fluid  momentum  carried  by  the  turbulent 
stresses  are  nearly  constant.  See,  for  example,  LUMLEY  and  PANOFSKY  (1964). 

A computation  restricted  to  the  surface  layer  can  therefore  reasonably 
neglect  the  momentum  transfer  of  turbulent  stresses.  Moreover,  there  exist 
experimentally  derived  empirical  profiles  of  mean  wind  and  temperature  in 
this  layer,  BUSINGER  (1973),  for  steady  conditions  over  flat  terrain.  These 
profiles  applied,  either  by  modification  or  by  assumption,  to  curved  flows 
in  rugged  terrain  can  provide  vertical  resolution  of  the  surface  layer. 

The  selected  computational  method  embodies  the  considerations  above. 
The  method  of  direct  variation  based  upon  Gauss'  Principle  of  least  constraint 
is  equivalent  to  the  momentum  equation  and  incorporates  both  advective  and 
buoyancy  accelerations.  A direct  variation  of  field  quantities,  consistent 
with  mass  conservation  and  potential  temperature  advection,  at  both  boundary 
and  interior  points  eliminates  the  need  for  prior  specification  of  boundary 
conditions.  Gauss'  Principle  does  not  involve  a time  integration  and  is 
therefore  ideally  suited  to  a steady-state  estimate.  Choice  of  a coordinate 
system  which  follows  the  warped  terrain  surface  permits  maximum  use  of 
detailed  topographic  information.  Use  of  only  the  surface  layer  in  the 
computation,  the  most  doubtful  and  restrictive  feature;  nevertheless  simpli- 
fies the  equations,  permits  an  essentially  two-dimensional  model  with  conse- 
quent computational  economies,  and  focuses  attention  on  surface  effects  which 
at  these  scales  are  the  dominant  wind  field  perturbations. 


We  return  to  these  points  in  the  detailed  discussion  of  the  theoretical 
basis  of  the  model,  and  its  implementation  to  the  surface  layer. 

I I. 3 THEORETICAL  BASIS  OF  MODEL 


II. 3.1  Gauss'  Principle  of  Least  Constraints 

A nwdern  discussion  of  Gauss'  Principle  of  Least  Constraints  appears 
in  LANCZOS  (1962)  but  applies  only  to  systems  of  point  particles.  Long  ago, 
the  relation  of  the  principle  of  least  constraints  to  fluid  motion  was  con- 
sidered by  APPELL  (1912)  and  GUILLAUME  (1913).  Since  the  principle  as  applied 
to  non-viscous  incompressible  fluids,  the  assumptions  we  use  for  the 
atmosphere,  is  not  well  known;  we  review  its  details.  First  we  demonstrate 
that  the  pressure  gradient  in  an  incompressible  fluid  is  a force  of  constraint 
arising  from  the  constraint  of  incompressibility. 


D'Alembert's  principle  of  virtual  work  for  an  incompressible  perfect 
fluid,  SERRIN  (1959),  is  written. 


/ 


p(^  g)  ‘iSx  dv 


6x«  d? 


0 


(11. 1) 


where  p is  the  density,  t is  the  acceleration,  -g  is  the  acceleration  of 
gravity  (the  only  external  force  considered),  and  t is  a scalar  stress  in  the 
outward  normal  direction  to  the  surface.  The  integrals  are  over  a material 
volume  and  its  boundary  surface.  The  principle  requires  that  virtual  dis- 
placements 6x  of  a fluid  particle  obey  the  kinematical  constraints  which 
here  are  boundary  constraints  and  the  incompressibility  condition  (mass 
conservation),  7 • 6x  = 0. 


The  incompressibility  constraint  is  introduced  by  a Lagrange  multiplier 
X.  We  add  the  expression. 
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0 = 


6x  dV 


to  (II. 1)  and  obtain, 

flp{^  + g)  + VX]  • 6x  dV  - fit  + 


X)  6x 


dt  » 0. 


Since  the  variations  6x  may  now  be  considered  unconstrained,  there  results: 
p/t  = - 7X  - pg  and  t = -X. 

These  are  the  familiar  equations  of  motion  for  inviscid  fluids  provided  the 
pressure  is  identified  as  the  Lagrange  multiplier  X.  Thus  the  pressure 
gradient  in  an  incompressible  fluid  is  a force  of  constraint  necessary  to 
enforce  the  pure  kinematical  (not  dynamical)  condition  of  incompressibility. 


In  words.  Gauss'  Principle  of  least  constraint  asserts  that  motion  of 
a mechanical  system  takes  place  in  such  a way  as  to  minimize  constraint  forces 
arising  from  kinematical  conditions.  For  our  non-viscous  atmosphere  its 
mathematical  statement  can  be  written. 


L 


S it  + g)^  dV  - 6 Jit  • d^  = 0 

\l  t C 


fit  • 


(II. 2) 


where  the  symbols  retain  their  previous  meanings.  The  indicated  variation, 
6,  of  the  integrals  denotes  a variation  in  which  only  accelerations,  not 
positions  and  velocities,  are  varied  subject  to  the  kinematical  constraints. 
The  equivalence  of  this  principle  to  the  equation  of  motion,  provided  the 
variations  of  acceleration  are  consistent  with  incompressibility,  may  again 
be  demonstrated  by  Lagrange  multipliers.  The  total  time  derivative  of  the 
divergence  condition  (a  kinematical  constraint)  with  a Lagrange  multiplier 
X is: 


t - vlj  vi^)  dV 
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Addition  of  this  expression  to  (11.2)  followed  by  integration  by  parts  of 
the  term  in  7 • ^ yields. 


<5  (^  + g)^  + 7X  • X + Xvlj  dV  - 6 fit  + X)  /t  • 

Varying  the  accelerations,  but  not  the  velocities,  gives. 


d?  = 0. 


^p{/t  + gh  7X]  • dV  - ft  + X)  . 


6^  = 0. 


The  arbitrary  variation  implies  the  equations  of  motion, 
pJt  = - VX  - pg  and  t = - X 

where  again  the  Lagrange  multiplier  X is  identified  with  the  pressure. 
Equation  (11.2)  has  a positive  quadratic  term  in  the  accelerations,  so  the 
vanishing  of  its  variation  is  the  condition  for  a minimum.  The  minimum 
of  the  "constraint"  — taken  as  the  square  of  the  difference  between  the 
acceleration  and  the  acceleration  of  external  applied  forces  (-g)  — 
characterizes  a situation  in  which  the  equations  of  motion,  as  well  as 
kinematical  constraints,  are  satisfied. 


Customarily  one  uses  variational  principles  to  derive  the  equations 
of  motion,  as  done  above.  By  contrast,  the  high  resolution  wind  analysis 
directly  varies  the  constraint  integral  to  seek  its  minimum.  Both  boundary 
and  internal  values  of  flow  quantities  are  varied  subject  to  constraints  — 
mass  conservation,  surface  geometry  and  boundary  conditions,  limited  input 
information.  Since  the  principle  does  not  involve  a time  integration  it  is 
ideally  suited  to  a diagnostic  analysis.  Pressure  forces,  the  constraints 
minimized,  need  never  be  considered  explicitly.  But  the  final  wind  estimate 
which  minimizes  the  constraint  provides  an  estimated  solution  of  both  the 
momentum  equation  and  the  equation  of  mass  conservation. 
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II. 3. 2 Thennal  Effects 


In  order  to  account  for  thermal  effects  an  approximation  of  the 
Boussinesq  type  is  introduced.  The  effective  external  acceleration  is  not 
-g,  but  the  buoyancy  acceleration  - p'g/PQ  where  p'  is  the  departure  of 
the  local  density  away  from  its  ambient  value  p^.  Likewise  in  place  of 
the  external  pressure,  -t,  the  effective  pressure  is  the  dynamic  pressure, 
P',  the  departure  away  from  the  static  equilibrium  value.  With  these 
approximations  the  principle  of  least  constraint  is  written, 

^ [ A + ^ ]2  dV  + 6y*  p’  J . dS  = 0.  (jj 

V ° S 

To  a good  approximation  the  relative  fluctuation  in  density  may  be 

wri tten , 


£.  ^ -(0-e„) 

“o  ■ T ■ ~e;~ 

0 0 

where  T and  0 are  absolute  and  potential  temperatures  respectively,  and  zero 
subscripts  denote  ambient  values.  Consequently  the  buoyancy  acceleration  is 
modeled  by  fluctuations  of  potential  temperature  away  from  an  ambient  value. 

The  ambient  potential  temperature  in  the  surface  layer  is  determined  by 
extrapolation  of  the  upper  air  profile  to  the  ground  surface.  Once  established 
the  field  of  ambient  potential  temperature  remains  unchanged  throughout  the 
rest  of  the  calculation. 

Buoyancy  forces  are  however  neither  constant  nor  accurately  known  as 
a function  of  position,  although  they  appear  as  external  forces  in  the 
dynamical  principle  of  least  constraints.  In  order  to  make  the  temperature 
field,  and  buoyancy  forces,  advectively  consistent  with  the  windfield  the 
surface  potential  temperature,  0,  is  varied  to  reduce  the  value  of  the  potential 
temperature  flux  divergence,  V • (vQ).  This  auxiliary  variation  does  not  seek 
a 'minimum,  but  only  operates  to  reduce  the  advective  inconsistency  of  the 
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temperature  field.  The  potential  temperature,  rather  than  the  temperature 
itself,  is  chosen  because  it  is  the  more  conservative  quantity. 

II. 3. 3 Summary  of  Basic  Theory 

The  basic  theory  of  the  wind  analysis  is  embodied  in  the  equations; 

if  ^0  [ t - dV  + 6^  P'  A • df  = 0. 

T 0Q  ■'5 

(Gauss'  Principle  o^  Least  Constraints  with  buoyancy  and 
surface  dynamic  pressure  considered  external  forces.) 

2.  [7  • (v0)]^  dV  minimum.  (II. 5) 

(Potential  temperature  advection  consistent  with  the  windfield) 

These  are  not  the  basic  model  equations,  however.  Their  application  to  the 

surface  layer  analysis  requires  further  modifications  as  discussed  below.  I 

II. 4 APPL"''ATI0N  TO  A SINGLE  SURFACE  LAYER 

The  modeled  volume  consists  of  the  volume  between  a user  selected  com- 
putational height  (within  the  surface  layer)  and  the  terrain  surface.  This 
single  layer  is  of  constant  thickness  in  a direction  normal  to  the  terrain 
surface  and  follows  the  warped  surface  of  the  ground.  Application  of  the 
basic  theory  to  this  layer  requires:  (1)  A simplification  of  the  basic  three- 
dimensional  equations,  (2)  A special  non-Euclidian  terrain  following  coordi- 
nate system,  and  (3)  Estimates  of  wind  and  temperature  profiles  near  the 
ground. 

II. 4.1  Surface  Parallel  Simplification 

The  theoretical  equation  (II. 4)  contains  in  the  surface  integral  the 
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pressure  fluctuation  P'  on  the  top  surface  of  the  modeled  volume.  The  lower 
surface  of  the  modeled  volume  contributes  nothing  to  this  integral  since  the 
no-slip  condition  at  the  ground,  v = 0 (a  boundary  contraint),  forces  the 
acceleration  to  be  zero  there.  The  pressure  fluctuation,  P',  an  external 
force  arising  from  atmospheric  motion  outside  the  modeled  volume,  unfortunately 
cannot  be  accurately  estimated  in  a model  restricted  to  the  surface  layer. 

There  exists  an  open  upper  boundary  of  the  modeled  volume  across  which  pressure 
forces  couple  surface  layer  motion  to  the  upper  atmosphere. 

In  these  circumstances  the  only  modeling  alternative  is  to  discard  the 
surface  integral  on  the  open  face.  One  effect  of  this  integral,  the  hydro- 
static pressure  fluctuation  due  to  density  variation,  can  be  retained.  The 
contribution  of  surface  normal  accelerations  to  the  volume  integral  may  be 
combined  with  the  surface  integral  itself  for  a thin  sublayer  of  thickness  AC. 
The  relevant  terms  are; 

is/fo  [«„-£:  ds  . A„  dS 

where  the  subscript  n denotes  a surface  normal  component  and  C is  position 
normal  to  the  surface.  The  hydrostatic  part  of  the  normal  pressure  gradient 
fluctuation  is  just  the  local  density  fluctuation:  3P'/3C  = 
this  substitution  the  two  integrals  may  be  combined  resulting  in  a single 
term. 


in  which  cross  products  of  surface  normal  acceleration  and  buoyancy  do  not 
appear.  Absence  of  the  cross  product  means  that  surface  normal  buoyancy  plays 
no  role  in  the  variation  and  may  be  ignored.  On  the  basis  of  this  heuristic 
argument  in  the  place  of  equation  (II..4)  we  use  as  the  basic  variational 
principle  for  the  dynamic  model  of  the  surface  layer. 


(II. 6) 


where  only  surface  parallel  components  of  buoyancy  enter.  Multiplicative 
constant  factors  are  also  dropped. 

The  justification  for  use  of  this  basic  model  equation  rests  not  only 
upon  the  argument  above,  but  also  upon  the  more  structured  and,  by  qualitative 
judgement,  more  realistic  windfields  which  it  produces.  Inclusion  of  surface 
normal  acceleration,  but  not  surface  normal  buoyancy,  appears  to  be  required 
in  order  for  the  model  to  exhibit  terrain  sheltering  and  some  effect  of  flow 
separation. 

Nevertheless  the  basic  model  equation  is  an  approximation  which  effects 
a de-coupling  of  the  surface  layer  analysis  from  the  remainder  of  the  atmosphere. 
Despite  its  use  of  all  three  acceleration  components  the  model  restricted  to 
a single  surface  layer  is  essentially  two-dimensional.  The  computational 
simplicity  thus  gained  is  bought  at  the  expense  of  a well-founded  analysis  of 
vertical  structure.  In  the  course  of  this  project  several  simplified  attempts 
were  made  to  improve  on  this  situation,  all  of  which  were  unsuccessful  in  the 
context  of  a surface  layer  model. 

II. 4. 2.  Warped  Coordinate  System 

Equation  (II. 6)  still  implies  a great  deal  of  structure  from  the 
adaptation  of  the  wind  field  to  the  warped  terrain  surface.  Near  the 
impenetrable  terrain  surface  the  wind  velocity  must  be  largely  parallel  to 
the  surface.  To  account  accurately  for  convoluted  terrain  we 'employ  a non- 
orthogonal  coordinate  system  in  which  coordinate  directions  and  scales  are 
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determined  by  the  terrain  structure  and  vary  with  location.  Figure  1.  is 
a diagram  of  the  geometry. 

Any  position  on  the  surface  is  given  by  the  vector  in  Cartesian 
coordinates. 


r = ix  + j y + k h(x,y) 


where  h(x,  y)  is  the  surface  elevation  as  a function  of  horizontal  location. 
Base  vectors  parallel  and  normal  to  the  surface  are  obtained  by  taking 
derivatives. 


^ = f • j * J hj, 


parallel  to  surface 
(not  unit  vectors) 


^ A 

" 


i h. 


hy  + k) 


unit  vector  normal 
to  surface. 


Alphabetic  x and  y subscripts  denote  partial  derivatives,  i.e.,  h^  = 3h/3x, 

A X 

and  unit  vectors  are  distinguished  by  a caret,  i.e.,  a3.  The  quantity  a is 

defined  as:  a = 1 + h^  + h^. 

X y 


It  is  useful  also  to  define  the  system  of  reciprocal  base  vectors 
denoted  by  a superscript. 


a’ 


a 


3 


(a^  X aj)  / [a^  • (a2  x a^)]  » [i  (1  + hy)-j  h^  + k 

(33  X a^)  / [a^  • {a2  x a^)]  = j (-1  f’x  ^y  ^ ^x^  * ^ V 

(a^  X 82)  / [a^  • (82  X a^)]  = 83 
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HORIZONTAL  REFERENCE  PLANE 
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The  reciprocal  vector  a is  a unit  vector  normal  to  the  surface  and 
^ -►!  -►2 

is  identical  with  a^  = n.  The  reciprocal  vectors  a and  a are  parallel  to 
the  surface,  but  distinct  from  a^  and  82.  The  system  of  reciprocal  vectors 
facilitates  operations  with  scalar  products  since, 


a,.  • ^ r,s  = 1 ,2,3 

r r 

where  <5^  = 1 if  s = r and  6^  = 0 otherwise.  Either  system  of  base  vectors 
supplies  a linearly  independent  basis  for  the  representation  of  an  arbitrary 
vector, 


e = a . 

contravariant  components 

c"  = e • ? 

t = a' 

covariant  components 

C3  = t • a. 

scalar  product 

We  use  the  sum  convention  for  repeated  indices  if  they  are  i,  j,  k.  The 
indices  r or  s are  not  summed. 


We  express  a surface  layer  wind  velocity  in  terms  of  its  contravariant 
12  3 

components  (v  , v , v ). 


1 -►  2-^  3 " 

V a^  + V 82  + V a^ 
1 


The  component  v^  is  not  the  component  of  wind  velocity  along  the  surface  in 
the  a.j  direction,  since  ^ is  not  a unit  vector.  The  component  v is,  in 
fact,  the  projection  of  v^a^  in  the  horizontal  pUne.  The  component  v , however, 
is  the  surface  normal  velocity  component,  since  a^  is  a unit  vector. 
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The  warped  coordinate  system  is  defined  at  all  locations  where  the 
horizontal  derivatives  of  terrain  elevation  are  defined.  The  formulas 
above  are  systematically  used  to  express  the  model  equations  (II. 5)  and 
(I I. 6)  in  the  warped  coordinate  system,  thereby  building  in  the  geometric 
properties  of  the  terrain  surface.  Further  details  are  given  in  Appendix  B. 

II. 4. 3 Use  of  Empirical  Surface  Layer  Profiles 

Accurate  calculation  of  the  integrands  of  the  model  equations  requires 
use  of  surface  normal  profiles  of  temperature  and  velocity  in  the  surface 
layer.  The  model  assumes  that  the  empirical,  stability  dependent  profiles  of 
BUSINGER  (1973)  valid  over  level  terrain  may  still  be  applied  locally  in  the 
surface  normal  direction  at  the  resolution  of  the  model  even  for  rough  terrain. 
To  account  approximately  for  flow  curvature  in  rough  terrain,  the  analogy  of 
BRADSHAW  (1969)  between  buoyancy  and  streamline  curvature  is  used  to  estimate 
the  effects  of  flow  curvature  upon  stability.  The  empirical  profiles  require 
values  at  two  levels  for  their  specification,  but  the  surface  layer  analysis 
carries  temperature  and  velocity  at  only  one  level.  Therefore  an  approximate 
bulk  Richardson  number  determined  from  flow  curvature  and  surface  layer 
buoyancy  is  used  to  determine  an  approximate  power  law  wind  profile  and  a 
linear  temperature  profile  in  the  surface  layer.  The  model  profiles  to  be 
determined  for  wind  and  temperature  respectively  are. 


u(z)  = b (z/Zg)" 


(II. 7) 


where  z^  is  the  surface  roughness  length.  The  subscript,  c,  denotes  values 
at  the  top  of  the  computational  layer  of  thickness,  z^.  The 'coefficient  and 
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exponent  of  the  wind  profile  are  determined  by  matching  the  logarithmic 
derivative  and  value  of  the  wind  speed  at  to  the  empirical  wind  profile. 
The  vertical  derivative  of  temperature  is  obtained  by  forcing  an  approximate 
equality  between  the  gradient  and  bulk  Richardson  numbers  In  the  surface 
layer. 


We  assume  that  gradient  and  bulk  Richardson  numbers  are  approximately 

equal , 

Rit  ' 9(de/dz)  / V (II. 8) 

Wq  U 

where  all  quantities  are  evaluated  at  the  top  of  the  computational  layer. 
Variables  carried  1n  the  analysis  permit  computation  of  the  bulk  Richardson 
number.  This  Richardson  number  is  modified  by  adding  to  it  an  analog  of  the 
gradient  Richardson  number  for  curved  flows.  BRADSHAW  (1969)  gives  this 
analog  as. 


Rile  = 2 S(1  + S)  where  S = (u/r)  / (du/dr) 

and  r Is  the  radius  of  streamline  curvature  (positive  for  curvature  convex 
upward).  Using  the  assumed  power  law  profile  and  the  average  surface  normal 
acceleration  A^  in  the  layer,  and  assuming  A^  is  purely  centripetal,  S can 
be  approximated. 


Addition  of  this  term  to  the  thermal  Richardson  number  provides  a stability 
measure  accounting  for  flow  curvature. 


R<  - R1(  . 
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The  surface  normal  acceleration  enters  the  model  not  only  d'^rectly  in  the 
basic  variational  equation  (II. 6)  but  also  indirectly  through  its  effect 
upon  the  stability  dependent  profiles. 


* The  empirical  wind  shear  and  wind  profil.js  of  BUSINGER  (1973)  are: 

JSi  ■ *^m  ■ M_  = I (lf>^-^);  E < 0,  Ri  < 0 

u*  oT  u*  ” ^ ~Q 

kz  du  - = (1  + 4.7E);  u_  * 1 (In  +•  4.7?);  E >0,  Ri  > o 

u^k  3z  u*  ^0 

where  E = z/L,  the  height  scaled  by  the  Obukhov  length.  The  function  is, 
4'i  = 2 In  [ (l+x)/2  ] + In  [ (l+x^)/2  ] -2  tan"^  (x+Tr/2) 
where  x = (1  - 15E)'^'^^. 

We  evaluate  the  function  at  the  layer  top  according  to  the  value 
of  the  Richardson  number  in  the  range,  -5.0  < Ri  < 0.25.  If  Ri  is  less  than 
I the  lower  limit,  it  is  set  equal  to  the  lower  limit,  -5.0. 

= (l-12Ri)'’*;  Ri  < 0.0 

= (l-3Ri)‘^ ; 0.0  < Ri  < 0.03571 

= 0.88  (l-6Ri)‘^;  0.03571  < Ri  < 0.1246 
= 1.75  (l-4Ri)‘^  0.1246  < Ri  < 0.25 

Matching  the  logarithmic  derivative  between  the  empirical  profiles  and  the 
assumed  power  law  profiles  provides  the  value  of  the  exponent  in  the  power 
law  profile, 

n = *„/  (Inf- 
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C < 0 
5 > 0 


(II. 9) 


i 


The  poMer  law  exponent  falls  in  the  range  0 < n < 1.  The  constant  b Is 
determined  by  the  wind  speed  at  the  layer  top,  which  Is  the  field  quantity 
carried  by  the  calculation. 

Knowing  the  wind  profile  the  approximate  equality  of  equation  (II. 8) 
may  be  solved  for  the  temperature  gradient. 

^ - 2(0^-0)  n^  / [z(2-n2)]  (11.10) 

This  procedure  produces  a temperature  gradient  consistent  with  the  Richardson 
number  used  to  obtain  the  wind  profiles. 

In  the  case  of  a Richardson  number  exceeding  0.25,  stable  laminar 
flow,  the  empirical  profiles  are  not  valid.  We  assume  In  this  case  n * 1 
(linear  wind  profile)  and  the  temperature  gradient  given  by  (II. 10). 

I I. 5 RELAXATION  FOR  MINIMUM  CONSTRAINT 


An  essential  part  of  the  surface  wind  analysis  Is 
direct  relaxation  used  to  obtain  the  minimum  constraint, 
equations  are; 


- -g — ^11^^  “ minimum 

(v0)]^  dV  -►  minimum 


the  method  of 
The  basic  model 


(11.11) 


where  the  Integrals  are  over  the  volume  of  the  modeled  layer.  For  the  steady 
state  model  X includes  only  the  time- Independent  advective  acceleration. 

The  modeled  volixne  Is  divided  Into  boxes  of  surface  normal  thickness  z^.  whose 
horizontal  profile  Is  square  although  the  boxes  are  warped  with  the  terrain 
surface.  The  contribution  of  each  of  these  flux  boxes,  so  called  because  the 
Integrands  are  expressed  In  flux  form,  to  the  total  volume  Integrals  Is  computed 
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by  the  algorithms  of  Appendix  B.  The  total  constraint  Integral  can  be  ex- 
pressed as  a sum  over  all  flux  boxes  In  the  modeled  area. 


Each  of  the  Is  a function  only  of  surface  parallel  velocities  on  Its 
faces.  (The  surface  normal  velocity  Is  determined  by  the  divergence 
condition,  7 • v,  the  no-sHp  condition  at  the  ground,  and  the  normal  profiles 
of  surface  parallel  wind). 


We  associate  an  with  each  grid  point  at  which  the  velocity  Is 

defined.  The  R^j  Is  the  average  of  the  of  the  two  overlapping  flux 

boxes  upwind  of  the  grid  point,  which  both  contain  the  velocity  point  on  one 

face.  For  variational  purposes  we  consider  this  R^^  a function  only  of  the 
12 

velocities  (v^.j,  v^j)  at  the  grid  point  (1,  j).  At  boundary  and  comer  grid 
points  upwind  flux  boxes  are  not  always  possible,  so  we  use  contiguous  ones. 
Denoting  the  two  velocity  components  at  each  grid  point  by  the  Index  k * 1,  2; 
the  unit  vector  of  global  steepest  descent  In  the  multi -dimensional  velocity 
space  to  decrease  the  constraint  Is  written  as: 

"fj  ■ -(»«/’'-«)  ! 

Each  relaxation  sweep  over  the  entire  grid  computes  a velocity  correction 
proportional  to  the  steepest  descent  vector.  The  constant  of  proportionality 
Is  chosen  to  fix  the  root  mean  square  correction  at  a selected  fraction  of 
the  Initial  approximate  wind  velocity  — a convenient  velocity  scale.  Under- 
relaxation  Is  required  for  stability.  An  appropriate  fraction  Is  0.03  or 
0.05.  The  velocity  corrections  generated  at  each  relaxation  sweep  are; 

Avj[j  > 0.03Vq  x/  NxM  njj 
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where  is  the  inn..i  constant  wind  speed  and  N and  M are  the  grid  dimensions. 
All  velocity  corrections  are  applied  simultaneously  at  the  conclusion  of  the 
sweep  over  all  grid  points.  This  relaxation  procedure  apportions  larger 
corrections  to  regions  of  the  grid  where  the  constraint  integral  is  most 
sensitive  to  changes  in  the  velocity  field. 

The- numerical  analysis  calculates  the  total  constraint  at  each 
relaxation  sweep  and  saves  the  windfield  of  the  minimum  value  achieved.  A 
minimum  is  usually  reached  in  a number  of  relaxation  steps  roughly  equal  to 
the  linear  grid  size.  Subsequent  to  the  minimum  the  constraint  exhibits 
irregular  small  amplitude  fluctuations. 

The  relaxation  of  the  velocity  field  considers  the  temperature  field 
fixed.  However,  each  relaxation  step  also  adjusts  the  temperature  field 
independently  by  use  of  the  second  of  the  basic  model  equations  above. 
Consequently  each  relaxation  sweep  yields  altered  temperature  and  velocity 
fields.  The  relaxation  of  the  temperature  flux  integral  is  directly 
analogous  with  the  constraint  relaxation  described  above  but  simpler  since 
only  a scalar  quantity,  0,  is  involved.  A root  mean  square  temperature 
correction  of  O.IK  is  used  to  scale  the  temperature  adjustments.  No 
minimum  of  the  temperature  flux  integral  is  sought.  Instead  temperature 
corrections  are  simply  made  at  each  relaxation  sweep  to  continually  try  to 
reduce  the  temperature  flux  integral. 


P 
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II. 6 GENERAL  REMARKS 


As  discussed  in  the  beginning  of  the  section.  Gauss'  Principle  of 
Least  Constraints  potentially  offers  a solution  to  many  of  the  problems  as- 
sociated with  a high-resolution  diagnostic  analysis  of  surface  layer  winds. 

It  provides  a variational  principle,  independent  of  time,  which  incorporates  both 
the  momentum  and  mass  continuity  equations  of  fluid  mechanics.  An  essentially 
steady-state  diagnostic  analysis  is  often  performed  in  meteorological  applica- 
tions by  a direct  application  of  time  dependent  equations  of  motion.  Starting 
from  an  assumed  initial  state  the  system  is  advanced  in  time  until  some  state 
is  reached  in  which  further  changes  in  time  become  small.  This  state  whose 
selection  requires  subjective  judgment  is  deemed  a "balanced"  steady  dynamic 
state.  In  contrast  to  this  procedure  in  which  the  equation  of  motion  is  obeyed 
at  all  stages  of  the  calculation  the  variational  method  searches  for  a state 
which  satisfies  the  equation  of  motion.  In  the  case  of  a variation  based  upon 
Gauss'  Principle  of  Least  Constraints  the  equations  of  motion  are  obeyed  only 
in  the  final  state  which  minimizes  the  constraint  and  then  only  to  the  degree 
of  approximation  permitted  by  the  model  algorithms.  The  selection  criterion  is 
no  longer  subjective,  however,  but  is  the  objective  attainment  of  a state  of 
minimum  constraint. 

Since  far  from  the  constraint  minimum  the  momentum  equation  is  not 
satisfied  there  is  no  intrinsic  reason  why  mass  conservation  need  be  enforced 
either.  However,  variations  of  acceleration  near  the  constraint  minimum  must 
satisfy  mass  conservation,  and  the  use  of  this  principle  at  all  stages 
in  the  variational  relaxation  is  convenient  to  reduce  the  degrees  of  freedom 
in  the  variation.  Mass  conservation  plus  the  velocity  zero  at  the  surface 
enables  surf ace. normal  velocities  to  always  be  expressed  in  terms  of  surface 
parallel  velocities.  Thus  the  surface  parallel  velocities  alone  are  the 
independent  variables  whose  variations  operating  through  the  advective  acceleration 
minimize  the  constraint. 
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Although  the  surface  layer  wind  analysis  employs  the  temperature  field 
to  estimate  buoyancy  forces,  the  emphasis  of  the  model  is  upon  dynamic  rather 
than  thermodynamic  effects.  Even  within  the  limitations  imposed  by  the  surface 
layer  approximation  the  dynamic  constraint  is  handled  in  more  detail  than  the 
thermodynamic  energy  equation,  which  only  appears  in  reduced  form  as  the  potential 
temperature  flux.  Situations  dominated  by  inertial  effects  - high  winds,  rough 
topography,  and  fine  resolution  - are  probably  better  represented  than  situations 
dominated  by  diabatic  heating.  Improvements  in  this  latter  area  could  perhaps 
be  achieved  by  accounting  more  accurately  for  sources  and  sinks  of  thermal 
energy,  carrying  both  temperatures  and  wind  velocities  at  two  levels  in  order 
to  fully  exploit  the  empirical  surface  layer  profiles  (see  Section  II. 4. 3),  or 
developing  a variational  principle  based  primarily  upon  the  energy  equation  instead  of 
the  momentum  equation. 

An  implicit  assumption  of  the  surface  layer  analysis,  nowhere  else 
mentioned,  is  the  neglect  of  all  effects  of  water  and  air  moisture.  No  evapora- 
tion or  condensation  is  considered. 

A fundamental  theoretical  difficulty  with  an  analysis  restricted  to 
the  surface  layer  alone  is  the  pressure  boundary  condition  on  the  top  face  of 
the  modeled  volume.  This  problem  is  present  in  all  dynamic  models,  even 
multi-layer  ones,  which  include  only  a portion  of  the  atmosphere.  Models  which 
only  enforce  flow  continuity  still  need  an  upper  boundary  condition  though  not 
on  the  pressure.  The  surface  layer  analysis  simply  neglects  the  relevant  term, 
a procedure  which  may  be  justified  a posteriori  by  the  results  achieved.  Although 
a model  with  more  vertical  structure  (or  layers)  would  likely  be  superior, 
assumptions  would  still  be  required  at  the  top  of  the  modeled  volume.  There 
may  exist  an  optimum  compromise  which  includes  enough  vertical  structure  but 
which  does  not  make  inordinate  demands  upon  computational  time  and  memory. 

The  present  single  layer  surface  model  with  rather  detailed  vertical  resolution 
is  a reasonable  first  attempt  at  the  optimum. 
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III.  ANALYSIS  OF  METEOROLOGICAL  DATA 

This  section  describes  the  theory  of  the  analysis  required  to  extract 
from  EPAMS  resident  meteorological  data  the  input  parameters  required  by  the 
high-resolution  surface  layer  wind  analysis.  In  the  absence  of  real-time 
spot  measurements  in  the  simulation  area  the  quantities  required  are:  (1) 

A background,  uniform  general  wind  estimate  for  the  simulation  area.  This 
somewhat  hypothetical  wind  takes  no  account  of  detailed  topography  or  thermal 
structure  but  provides  the  initial  field  to  be  relaxed  by  the  surface  layer 
analysis;  (2)  An  estimate  of  surface  air  temperature  fields  over  the  simula- 
tion site,  which  together  with;  (3)  An  estimate  of  vertical  temperature 
profiles;  provides  starting  estimates  of  surface  air  temperature  fields  and 
buoyancy  forces. 

Figure  2 displays  c.ie  types  of  data  available  in  the  EPAMS  Data 
Base.  These  data  always  contain  surface  observations  and  sounding  observa- 
tions. In  addition  the  data  base  of  the  Southwestern  U.S.  contains  USAF 
GWC  hourly  fine-mesh  predictions  and  may  contain  output  from  the  Atmospheric 
Sciences  Laboratory  mesoscale  layer  model.  The  European  data  base  contains 
neither  GWC  predictions  nor  mesoscale  model  output.  Figure  2 also  indicates 
other  potential  data  sources;  direct  user  input  of  parameters  required  by  the 
surface  analysis  and  local  observations  within  the  simulation  area,  which  are 
presently  not  available. 

The  data  analysis  requirements  pose  a very  difficult  problem.  The 
available  data  are  typically  from  sites  up  to  200  kms  away  from  the  simula- 
tion site  with  high  intervening  ridges,  and  up  to  12  hours  previous  to  simu- 
lation time.  Errors  of  driving  parameters  can  remove  all  validity  of  the 
surface  layer  analysis.  A reliable  meso-scale  model  is  clearly  required  to 
bridge  the  gap  in  scale  between  the  data  resolution  and  the  small  area  of 
the  surface  layer  model.  Construction  and  use  of  a mesoscale  model  is  outside 
the  scope  of  this  project.  The  EPAMS  system,  we  note,  does  however  provide 
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Figure  2.  EPAMS  Data  and  Data  Use  Priorities 
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for  a mesoscale  model  which  could  be  used  as  a routine  driver  for  the  surface 
layer  analysis.  In  these  circumstances  we  cope  with  the  data  analysis  problem 
by:  1)  providing  a mechanism  whereby  surface  analysis  driving  parameters  may 
be  directly  entered  by  the  user  at  execution  time,  2)  preferentially  using 
mesomodel  output  when  it  is  available  and  timely,  or  3)  generating  the  best 
estimate  possible,  short  of  using  a mesoscale  model,  on  the  basis  of  the 
available  data. 

The  numbers  in  the  chart  of  Figure  2 represent  the  priorities  of  use 
of  each  of  the  specified  data  types  to  provide  the  specified  output  required 
for  the  surface  layer  analysis.  Equal  priorities  appearing  in  the  same  column 
denote  the  several  data  types  which  may  be  conjunctively  required  at  that  prior- 
ity level  to  generate  the  information  which  labels  the  column.  Insufficient  data, 
or  failure  to  find  suitab^j  data,  results  in  a data  analysis  failure,  the  only 
remedy  for  which  is  user  supplied  input.  With  user  supplied  input,  an  option 
permits  a wind  analysis  in  which  no  use  is  made  of  temperature  data,  although 
dumy  data  must  be  supplied.  Failure  of  the  data  analysis  to  generate  a surface 
background  wind  will  prevent  execution  of  the  wind  analysis.  A climatological 
default  for  this  fundamental  and  highly  variable  quantity  is  not  justified. 

The  following  paragraphs  describe  the  theoretical  basis  of  the 
analysis  of  ASL  mesomodel  data,  sounding  observations  and  numerical  pre- 
diction data,  and  surface  station  data  to  obtain  driving  parameters  of  the 
surface  layer  analysis.  The  somewhat  involved  software  logic  required  to 
implement  che  data  analysis  is  described  in  Section  IV  and  V. 

III.l  ANALYSIS  OF  MESOMODEL  DATA 

The  ASL  Mesoscale  Model  is  a diagnostic  analysis  based  upon  the 
variational  adjustment  of  the  flow  in  a layer  adjacent  to  the  ground.  The 
layer  is  identified  by  an  objective  analysis  of  sounding  observations  at 
several  localities,  and  the  results  are  first  objectively  interpolated  over 
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the  computation  grid.-  The  interpolated  values  provide  the  Initial  fields 
for  a variational  adjustment  based  upon  conservation  of  mass,  momentum,  and 
flux  of  total  energy  in  the  layer.  Figure  3 is  a definition  sketch  of  the 
model  geometry.  The  model  uses  a dimensionless  varable,  a,  for  vertical 
position  in  the  layer,  defined  by. 


0-^ 

1 

- h 

o<  a < 1, 

and  model 

output  consists  of  seven  (7)  fields,  all  given  in  mks  units: 

1. 

H 

(the  height  of  layer  top,  MSL) 

2. 

<u*>  » D 1 pu(0)do 

0 

(x  momentun  flux) 

3. 

<v'>  » 0 

0 
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(y  momentum  flux) 

4. 

<u'(l>  ■ 0 J 

C 
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) 

(vertically  weighted  x momentum 
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5. 
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J 
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1 pov(o)da 

(vertically  weighted  y momentum 
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0 

(y  energy  flux) 
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Figure  3 Layer  Geometry  of  Mesomodel 
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Figure  4 Coordinate  Transformation 


These  data  contain  no  direct  information  of  wind  and  temperature 
profiles,  only  integrals  of  these  quantities  through  the  layer.  No  tempera- 
ture information  is  obtained  from  the  mesomodel  output.  The  data  analysis 
extracts  an  estimate  of  surface  wind  using  only  the  first  five  (5)  fields 
(energy  fluxes  are  not  used),  plus  the  terrain  elevations  of  the  mesoscale 
grid. 


The  analysis  applies  some  results  of  asymptotic  matching  of  surface 
layer  and  outer  layer  profiles  derived  from  the  similarity  theory  of  neutral 
barotropic  boundary  layers,  BLACKAOAR  and  TENNEKES  (1968).  According  to 
these,  in  the  outer  part  of  the  boundary  layer  the  velocity  profile  is. 
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where  u*  is  the  surface  friction  velocity,  subscript  g denotes  geostrophic 
winds  at  the  top  of  the  boundary  layer,  f is  the  Coriolis  parameter,  is 
surface  roughness  length,  and  z is  vertical  height  measured  from  the  ground 
surface.  The  coordinate  system  is  one  in  which  the  x direction  is  the  direc- 
tion of  the  surface  wind  (or  equivalently,  u.,.).  The  functions  F..,  F..  of  the 

X y 

dimensionless  height,  c,  are  the  velocity  defects. 


On  the  other  hand,  similarity  theory  gives  for  the  profile  in  the 
surface  layer. 
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on^  form  of  which  is  the  logarithmic  law. 


I-  finite. 
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The  data  analysis  assumes  that  layer  height  of  the  mesoscale  model 
is  the  boundary  layer  height.  Convenient  functional  forms  of  the  similarity 
laws  are  assumed  which  can  match  surface  and  outer  layer  profiles,  and  also 
the  upper  and  lower  boundary  conditions.  Specifically  we  assume, 


In  c + B 


^ A (I-C^/Cq) 


outer  layer 


U _ 1 
u*  " k 


V 


= 0 


surface  layer 
z < 0.1  D 


(III.l) 


where  k is  the  von  KSrm^n  constant,  and  D is  the  layer  thickness.  The  re- 
quirement that  winds  be  geostrophic  at  the  top  of  the  boundary  layer  yields: 


A (1-  z^/D^) 
k 


0.1  ^ z/D  < 1 outer  layer  (I I. 2) 


Matching  of  the  surface  and  outer  profiles  at  some  arbitrary  point  near  the 
top  of  the  surface  layer  ( z/D  = 0.1  ) gives  the  additional  relations: 


U 


9 


Au* 

nr 


(III. 3) 


32 


Using  Equation  (III.3)^the  profile  relations  of  Eq.  (III.l)  and  (111.2)  may 
be  inserted  into  the  definitions  of  the  mesomodel  output  quantities.  Per- 
formance of  the  integration  gives  formulas  for  the  mesoscale  output  quanti- 
ties- in  terms  of  the  similarity  parameters.  As  an  example  consider  <u>. 

<u>  “ D I pu(a)da 
0 

_ n r P U*  In  (a  2 ) do  + D p[  ^ Ino  + ^ ln(7  ) do 

' } TT  Zo  ■'o'  K Zo 

0 ^ 

The  lower  limit  of  integration  is  zero,  instead  of  Zo/D,  which 
introduces  a very  small  error  of  order  Zo/D.  Partitioning  of  the  integral 
into  two  parts  given  by  the  surface  and  outer  layer  profiles  proves  unneces- 
sary since  the  integrands  are  the  same  (a  result  of  the  asymptotic  matching). 
If  one  further  assumes  that  density  can  be  considered  independent  of  height 
the  result  of  this  and  similar  integrations  are  the  following  formulas: 
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<v> 
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These  formulas,  giving  scaling  parameters  in  terms  of  mesomodel  output 
quantities,  are  still  not  in  quite  the  correct  form  since  they  refer  to  a 
coordinate  system  aligned  with  the  surface  wind.  Mesoscale  output  quantities 
are  components  in  two  perpendicular  directions  (x,  y)  which  are  rotated  45 
degrees  with  respect  to  geographical  north  and  east  directions.  The  definition 
sketch  of  Figure  4 shows  the  coordinate  rotation  required.  Relations  of 
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similarity  parameters  to  mesomodel  output  are  then  obtained. 

C In  (j  ) -1  ] = <u'>  COS0  + <v'>  sinG 

- = - <u'>  sinG  + <v'>  cosG 


[ In  (7  ) - 1 ] = <ui  1>  cosG  + <vil>  sinG 

b K Zo 

- = - <u'|l>  SinG  + <v'l  1>  cosG 

Knowing  the  layer  thickness,  D,  and  the  roughness  length,  Zo,  this 
set  of  equations  is  solvable  for  the  four  quantities,  uVk,  A,  sinG,  cosG. 

Consistent  with  the  assumption  of  a neutral,  barotropic  boundary  layer 
(the  only  assumption  possible  with  the  given  data)  the  surface  layer  wind 
field  is  then  determined  by, 

u = In  ( Y ) cosG 

V = ^ In  ( 1^  ) SinG 

where  z is  the  user  selected  computation  height.  These  components,  oriented 
in  the  coordinate  system  of  the  mesoscale  model,  are  then  resolved  into 
geographical  east  and  north  components. 

These  theoretical  formulas  are  implemented  in  the  program  segment 
MESVAR  to  obtain  an  estimate  of  surface  background  wind  from  the  mesomodel 
output  data  obtained  by  the  program  segment  MESMOO. 

III. 2 SPATIAL  AND  TEMPORAL  EXTRAPOLATION  OF  UPPER  AIR  AND  NUMERICAL 

PREDICTION  DATA 

Upper  air  profiles  derived  from  Rawinsonde  observations  are  available 
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in  the  data  base  at  station  locations  distributed  throughout  the  southwestern 
U.S.  The  spatial  density  of  these  observations  is  low.  The  closest  observa- 
tion may  be  of  the  order  of  100  km  away  from  the  site  of  application  of  the 
microscale  terrain  wind  model.  Also,  the  observation  times  may  be  as  much  as 
12  hours  previous  to  the  simulation  time.  In  addition,  the  data  base  contains 
rough  profiles  of  upper  air  quantities  generated  by  the  USAF  Global  Weather 
Central  "fine-mesh"  numerical  predictions.  These  quantities  are  located  on  a 
grid  of  approximately  150  km,  and  are  available  at  hourly  time  intervals. 
(Predictions  extend  for  18  hours  beginning  at  the  analysis  times  of  OOZ  and 
12Z.  In  real  time  operation  the  first  six  hours  of  each  prediction  sequence 
would  be  unavailable.)  This  section  describes  the  analysis  procedure  used  to 
.spatially  interpolate  and  update  these  profiles  in  order  to  obtain  estimates  of 
potential  temperature  profiles  and,  where  required  by  the  wind  estimate,  standard 
pressure  heights  and  their  gradients  at  the  simulation  site.  Presently  the 
analysis  is  designed  to  interpolate  the  standard  pressure  heights  (850,  700,  and 
500  mb  only)  and  the  potential  temperatures  at  these  heights.  Winds  at  these 
standard  pressure  levels  could  also  be  interpolated. 

In  the  following  we  describe  the  analysis  of  the  southwest  U.S.  upper 
air  data.  Analysis  of  the  European  data  base  employs  the  same  general  methods, 
with  some  differences  which  are  explained  at  the  end  of  the  section. 

The  basic  procedure  operates  by  the  establishment  of  planes  for  linear 
interpolation.  As  an  example  consider  the  700  mb  pressure  height.  At  a 
given  time,  t^  this  pressure  height  can  be  approximated  over  the  local  region 
near  the  simulation  site  by  a plane, 

^UA, 700^^1^  * * **0^^!^*  ‘^U^^l^^ 

where  the  coefficients  depend  upon  the  type  of  data  and  the  time.  Let  us 
further  assume  that  this  plane  interpolates  upper  air  observations  at  time  t^. 

The  coefficients  are  found  from  pressure  heights  at  the  station  locations. 

The  data  search  finds  the  four  (4)  or  less  closest  stations  within  a fixed 
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distance  of  the  simulation  site.  If  three  (3)  stations  are  present  the  coeffi- 
cients are  exactly  determined.  If  four  (4)  stations  are  found  the  coefficients 
are  over  determined,  a case  handled  by  determining  the  best  least  squares  fit 
of  a plane  to  the  four  (4)  data  points.  The  case  of  only  one  (1)  or  two  (2) 
stations  requires  supplementary  information  provided  by  the  GWC  data.  The  GWC 
prediction  data  at  the  four  (4)  closest  grid  points  to  the  simulation  site  (or 
as  sometimes  occurs,  only  three)  at  the  same  time,  t.| . also  determines  a plane 
interpolating  the  GWC  700  mb  height. 

^GWC,700  ^ ^G  ^^1^  '’g  ^G  ^^1^^ 

In  the  case  of  only  one  (1)  upper  air  observation  the  slopes  of  the 
700  mb  pressure  height  provided  by  the  GWC  plane  are  used,  i.e.; 


Cu(ti)  = 


while  the  constant  a^(t.|)  is  provided  by  the  single  upper  air  observation. 

Two  (2)  upper  air  observations  suffice  to  determine  the  intersection 
of  the  interpolative  plane  with  a vertical  plane  through  the  two  stations. 

The  slope  of  the  interpolative  plane  normal  to  this  intersection  is  established 
by  using  the  slope  in  this  direction  of  the  GWC  plane.  Computationally  the 
case  of  two  (2)  upper  air  observations  is  more  complex  than  the  others,  but 
follows  from  standard  analytical  geometry. 


The  foregoing  example  illustrates  the  establishment  of  an  interpolative 
plane  for  one  item  of  upper  air  data,  700  mb  height,  from  which  the  700  mb 
height,  and  its  slope,  may  be  determined  at  time  t.| , the  time  of  the  station 
observations,  at  any  point  in  a local  region.  Real  data,  the  Observations, 
are  used  to  the  maximum  extent  possible;  but  the  presumably  lower  grade  GWC 
predictions  are  incorporated  if  observational  data  is  incomplete.  Note  that 
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only  slopes,  not  magnitudes,  of  GWC  Interpol ative  planes  are  introduced.  Pro- 
vided a single  upper  air  observation  is  present,  the  interpolative  planes  are 
normalized  with  it.  GWC  data  is  used  to  establish  only  spatial  trends  (i.e., 
slopes)  which  cannot  be  determined  otherwise.  Of  course,  if  observational 
data 'is  entirely  absent,  the  GWC  prediction  data  is  used  alone  as  a default. 

If  the  time  selected  for  the  simulation  coincides  closely  enough  (<1 
hr.)  with  the  time  of  upper  air  observations,  the  procedure  illustrated  above 
is  applied  to  establish  interpolative  planes  of  upper  air  quantities.  If,  as 
is  usually  the  case,  the  upper  air  observations  are  one  hour  or  more  old  relative 
to  simulation  time  and  GWC  predictions  are  available,  GWC  data  are  used  to  estab- 
lish updated  extrapolative  planes  of  upper  air  data.  Suppose  the  most  recent  ob- 

servation time  is  ti  and  the  simulation  time  is  t2,  where  t2-t,  hr.  Again, 
take  the  700  mb  pressure  height  as  an  example.  The  GWC  data  provide  interpolative 
planes  at  each  of  two  times. 

^G,700  ^^1^  * ^ ■*'  ‘^G^^l^^ 

^G,700  ^^2^  " ®G^^2^  ^ * ‘^G^^2^^ 

The  spatial  interpolation  of  the  temporal  trend  of  z^qq  in  the  GWC  predictions 
is  given  by  the  difference  of  these  equations. 

'^^G,700  “ l•*G^^2^  " ®G^^1^^  ^ 

The  available  upper  air  observations  are  updated  by  adding  the  GWC  trend  for 
the  time  interval,  evaluated  at  the  location  of  the  observation  site,  (x^,  y^). 

^i  ,0,700^4^  “ ®i,U. 700^^1^  ^^G, 700^^1*  ^1^ 

The  updated  observations  are  then  used  to  establish  interpolation  planes  of 
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upper  air  observations  valid  at  simulation  time.  Depending  upon  the  number 
of  observation  stations  GWC  predictions  may  still  be  required,  as  above,  to 

• completely  establish  the  interpolation  planes. 

• The  analysis  of  upper  air  profiles  is  founded  upon  the  philosophy  of 
using  real  data,  if  available,  in  conjunction  with  spatial  and  temporal  trends 
derived  from  GWC  numerical  predictions.  Although  absolute  magnitudes  of  GWC 
predictions  may  be  inaccurate,  these  numerical  predictions  take  large  scale 
synoptic  changes  into  account.  Spatial  and  temporal  trends,  but  not  magnitudes, 
are  the  information  contained  within  the  GWC  data  which  is  deemed  most  valuable. 
Our  analysis  incorporates  these  notions  in  a simple,  straightforward  manner, 
but  by  no  means  exhausts  the  possible  analysis  techniques. 

The  theoretical  approach  sketched  here  is  implemented  in  the  data  ana- 
lysis program  to  provide  upper  air  profiles  at  simulation  time  of  pressure 
heights  and  potential  temperatures  not  only  at  the  simulation  site  itself,  but 
also  at  surface  station  locations.  The  profiles  at  surface  station  locations, 
as  described  in  another  section,  are  central  for  interpretation  of  surface 
observations  to  provide  input  parameters  of  surface  temperature  and  general 
wind  to  the  microscale  model.  One  computational  aspect  of  the  establishment 
of  interpolation  planes  is  of  interest.  Since  the  locations  of  upper  air 
observing  stations,  or  GWC  grid  points,  do  not  change;  computational  economy 
is  achieved  by  constructing  the  planes  from  linear  combinations  of  "basis" 
planes.  A basis  plane  (or  linear  function)  is  associated  with  each  data  loca- 
tion and  has. unit  value  at  that  location.  Its  value  at  the  other  station  loca- 
tions is  zero.  In  the  case  of  overdetermined  planes  (4  data  locations)  the 
values  are  as  close  to  one  and  zero  as  a least  squares  fit  permits.  Denoting 
the  basis  function  associated  with  each  data  location,  i,  by  1^(x,  y)  the 
interpolation  plane  is  given  by, 

N 

z(x,y)  ^ I z.  1.  (x,y) 
i-1  ^ ^ 

where  z^  is  the  value  of  the  interpolated  quantity  at  each  of  the  N data 
locations. 
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The  European  data  base  contains  no  numerical  predictions,  so  an  alterna- 
tive procedure  is  provided  to  establish  interpolative  planes  of  upper  air  data 
at  simulation  time.  By  setting  a flag,  these  planes  can  be  determined  by  linear 
interpolation  in  time  between  spatial  extrapolative  planes  of  upper  air  data  at 
two  times,  past  and  future,  which  bracket  the  simulation  time.  This  flag  needs 
to  be  set  for  the  analysis  of  the  European  data,  or  any  other  case  in  which 
numerical  prediction  data  is  missing.  If  the  flag  is  not  set  and  predictive 
data  are  not  acquired,  upper  air  data  less  than  3 hours  prior  to  simulation  are 
used  as  a last  resort.  If  the  only  upper  air  data  available  are  older  than  3 
hours,  no  simulation  time  interpolative  planes  of  upper  air  data  are  generated. 

The  updated  planes  for  the  spatial  extrapolation  of  upper  air  data  are 
established  by  the  program  segment  PROFLS. 

III. 3 ANALYSIS  OF  SURFACE  STATION  DATA 

The  observational  data  from  surface  stations,  although  they  may  be 
located  up  to  100  km  away  from  the  simulation  site,  is  still  of  importance 
in  determining  input  parameters  to  the  local  surface  wind  analysis.  Their 
primary  value  is  timeliness.  The  date  base  contains  in  some  cases  hourly 
observations,  and  observations  taken  less  than  three  (3)  hours  previous  to 
simulation  time  at  stations  within  100  km  of  the  simulation  site  are  generally 
available. 

The  general  data  analysis  may  use  the  surface  data  for  two  purposes. 

It  is  the  sole  source  of  current  surface  air  temperature  information.  Surface 
wind  observations  may  also  be  used  to  calibrate  and  normalize  an  estimate  of 
simulation  site  wind  derived  via  the  geostrophic  approximation. 

The  analysis  of  surface  temperature  data  makes  the  basic  assumption 
that  AQ,  the  surface  heating  at  the  observation  sites,  is  representative  of 
the  surface  heating  at  the  simulation  site  as  well.  At  each  surface  station 
location  the  potential  temperature  profile,  derived  from  the  upper  air  data 
analysis,  is  extrapolated  to  ground  level  to  obtain  a "background"  surface 
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potential  temperature,  0^.  The  "actual"  surface  potential  temperature  0^ 

Is  computed  from  the  reported  surface  temperature  and  the  pressure  given 
b>  an  extrapolation  to  ground  level  of  the  pressure  height  profiles.  From 
the  definition  of  potential  temperature  and  the  thermodynamic  TdS  equation 
— assuming  heating  occurs  at  constant  pressure  — the  heat  change  at  the 
surface  station  relative  to  the  "background"  temperature  Is: 


This  quantity  averaged  over  the  surface  stations  is  taken  to  represent  surface 
air  heating  at  the  simulation  site  relative  to  the  background  temperature 
obtained  by  extrapolation  to  the  surface  of  upper  air  profiles. 

The  potential  temperature  estimate  at  each  grid  point ‘in  the  simulation 
area  is  obtained  by  solving  the  above  formula  for  0^, 

where  < > represents  the  average  of  surface  observations,  and  the  zero  sub- 
scripts now  denote  extrapolations  to  ground  level  of  upper  air  profiles  at 
points  in  the  simulation  area.  In  obtaining  this  formula  the  approximation. 


is  employed.  The  field  of  surface  potential  temperature,  thus  established, 
exhibits  structure  dependent  upon  terrain  height  variations  within  the  simula- 
tion zone. 


Use  of  the  surface  station  wind  data  first  requires  a computation  of 


the  surface  geostrophic  wind  at  each  site.  In  sigma  coordinates  the  surface 
geostrophic  wind  (o  ■ 1)  Is  given  by. 


0 ■ - (g  VZj  ♦ RTjVinPj)  - f k x 


where  the  subscript,  s,  revsrs  to  surface  values,  k Is  a vertical  unit  vector, 
and  z Is  terrain  height.  Other  symbols  have  their  usual  meteorological 
meaning.  OANARD  (1977)  shows  that  a simplification  of  the  expression  In 
parentheses  consistent  with  the  assumption  of  linear  vertical  variation  of 
pressure  force  Is  given  by: 


where. 


g 7 Zj  ♦ RTj  7 Inpj  * 9 Vp  Zgg  - n (Zgg  - z^) 
" “ 9 Vp  In  Tgj. 


The  subscript,  85,  refers  to  the  850  mb  level,  but  for  elevated  terrain  the  * 

first  standard  pressure  level  above  the  terrain  surface  may  be  used  equally 
well.  The  horizontal  gradients  at  constant  pressure  levels  and  the  level  • 

heights  themselves  are  given  directly  by  the  interpolation  planes  of  upper 
air  data.  These  formulas  permit  calculation  of  the  surface  geostrophic  wind 
at  each  surface  station  location. 

The  somewhat  fictitious  surface  geostrophic  wind  does  not  account  for 
advective,  frictional,  diffusive,  and  time  dependent  effects.  Consequently 
measured  surface  winds  vary  widely  from  It.  However  Its  dependence  solely 
upon  upper  air  conditions  and  terrain  heights  renders  the  geostrophic  wind 
the  best  vehicle,  short  of  a mesoscale  model,  to  carry  the  extrapolation/  Inter- 
polation of  surface  measurements  to  the  simulation  site.  We  use  It  for  this 
purpose. 


T 
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At  each  surface  station  the  difference,  both  in  direction  and  magnitude, 
between  the  measured  wind  and  the  geostrophic  wind  is  computed.  Then  a test  is 
made  of  the  statistical  scatter  of  these  differences  and  the  magnitude  of  their 
averages.  If  the  criteria  of  the  test  are  satisfied,  the  average  value  of  the 
differences  is  applied  to  the  geostrophic  wind  at  the  simulation  site  to  obtain 
an  estimate  of  the  surface  level  general  background  wind  there.  Establishment 
of  reliable  criteria  for  these  tests  will  require  some  exercise  with  the  data 
bases.  Presently  reasonable,  but  generous,  criteria  are  used;  i.e.,  direc- 
tional relative  variance  < 50%,  and  magnitude  relative  variance  < 50%.  If  the 
criteria  are  not  met,  and  failing  other  information,  the  magnitude  and  direction 
of  the  wind  at  the  closest  surface  station  is  used  as  a default. 

The  general  wind  estimate  produced  by  this  analysis  technique  cannot 
reflect  local  topographic  influence  upon  the  wind  field  (except  the  effect  of 
surface  elevation),  but  the  local  surface  analysis  routine  itself  may  yield 
these.  Frictional  effects  and  modifications  of  the  surface  wind  field  attri- 
butable to  boundary  layer  thickness  and  stability  are  assumed  to  be  similar 
at  both  the  surface  stations  and  the  simulation  site. 

A more  elaborate  data  analysis  procedure  was  considered,  one  using  the 
boundary  layer  parameter! zations  based  upon  general  similarity  theory  as 
given  by  ARYA  (1977).  These  parameter! rations  employ  both  the  boundary  layer 
height  and  the  Obukhov  stability  length  as  well  as  the  friction  velocity  and 
the  geostrophic  wind.  The  surface  station  data  together  with  the  upper  air 
profiles  in  principle  contain  enough  information  to  determine  the  required 
parameters.  But  the  problem  of  spatially  extrapolating  the  boundary  layer 
height  still  remains.  Consequently  the  more  elaborate,  and  physically  more 
satisfying,  data  analysis  procedure  was  discarded  in  favor  of  the  empirical 
procedure  described  above. 

The  analysis  of  surface  station  data  is  implemented  in  two  program 
segments.  The  routine  SRFTMP  uses  surface  data  to  estimate  surface  heating 
at  the  simulation  site,  and  the  routine  UAVAR  performs  the  calculations 
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required  for  estimating  the  general  background  wind  at  the  simulation  site 
via  the  geostrophic  extrapolation. 


IV. 


GENERAL  PROGRAM  STRUCTURE 


The  block  diagram  of  Figure  5 displays  the  overall  structural  logic 
of  the  numerical  analysis  program  to  integrate  the  high  resolution  wind  ana- 
lysis as  a part  of  EPAMS.  Segmentation  of  major  program  elements  and  levels 
is  indicated.  XECAMS,  the  overall  executive,  determines  that  an  analysis 
routine  is  to  be  run,  and  passes  control  to  ANALYZ.  The  supervisor  ANALYZ, 
on  the  basis  of  flags  received  from  the  executive,  determines  which  particular 
analysis  is  required,  and  in  this  case  passes  control  to  WNDMGR  (Wind  Manager) 
which  controls  all  functions  required  for  the  surface  layer  wind  analysis. 
Subordinate  to  WNDMGR  are  the  major  program  segments  TERACQ  (Terrain  Acquisi- 
tion), DTBMGR  (Data  Base  Manager),  DATANL  (Data  Analysis),  DRIVRS  (Driving 
Parameters),  and  WINDEX  (Wind  Extrapolation).  The  major  routines  are  executed 
sequentially  as  specified  by  control  flags  supplied  by  namelist  input.  The 
general  functions  of  each  of  these  routines  is  as  follows: 

WNDMGR  acquires  directory  information  from  the  micro  terrain  and  wind 
files,  reads  input  specific  to  the  wind  model,  assigns  default  values,  computes 
Julian  times,  and  updates  the  micro  wind  directory  upon  successful  execution 
of  the  calculation.  As  the  overall  manager,  it  calls  and  monitors  the  major 
subordinate  program  elements. 

TERACQ  obtains  the  pre-processed  micro  terrain  elevation  and  surface 
roughness  data  fields  for  the  area  closest  to  or  at  the  user  specified  UTM 
coordinate  location  of  the  local  simulation.  If  no  terrain  data  sufficiently 
close  to  the  simulation  location  exists,  a message  is  printed  and  execution  of 
WINDEX  is  suppressed. 

DTBMGR  scans  the  files  of  meteorological  data  in  the  EPAMS  data  base 
and  extracts  relevant  data.  Any  combination  of  data  types  or  none  at  all, 
depending  upon  user  set  flags,  can  be  extracted. 
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Figure  5.  Structure  of  Surface  Wind  Analysis  in  EPAMS 
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DATANL  uses  the  selected  data  obtained  by  DTBMGR  to  generate  the 
meteorological  parameters  required  to  drive  the  surface  layer  analysis.  These 
parameters;  background  wind  at  the  local  simulation  area,  a vertical  profile 
of  potential  temperature  and  an  estimate  of  surface  heating;  are  obtained  by 
use  of  the  analysis  described  in  Section  III.  Owing  to  the  varying  types, 
relevance,  and  availability  of  meteorological  data  in  the  data  base,  this 
program  segment  exhibits  some  logical  complexity  based  upon  priorities  of 
data  usage  or  user  specified  options.  It  also  permits  direct  user  input  of 
driving  parameters  in  lieu  of  driving  parameters  computed  from  the  data  base. 

DRIVRS  compares  the  driving  parameters  determined  by  DATANL  with 
driving  parameters  used  to  generate  previous  high  resolution  wind  analyses 
over  the  same  terrain  block.  If  the  driving  parameters  nearly  match  those 
used  to  generate  windfields  archived  in  the  microwind  file,  an  informative 
message  to  that  effect  is  printed  and  execution  of  WINDEX  is  suppressed. 

WINDEX  is  the  program  segment  which  produces  the  final  high-resolution 
surface  wind  field.  This  segment  performs  the  core  of  the  numerical  surface 
layer  analysis  by  a relaxational  adjustment  of  wind  and  temperature  fields 
as  described  in  Section  II.  At  the  conclusion  of  the  relaxation  WINDEX  out- 
puts the  estimated  high  resolution  wind  and  temperature  fields  to  the  micro- 
wind files  of  the  EPAMS  data  base. 

Directly  below  the  EPAMS  executive  in  Figure  5 is  shown  a PLTPR6 
(Plot  Program)  segment.  This  independent  utility  program  is  executed 
separately  from  the  other  program  structure  to  provide  plots  of  terrain 
elevation  in  the  simulation  area  or  wind  and  temperature  fields  generated 
by  the  high  resolution  wind  analysis. 

Another  independent  utility  program  TERPRO  (Terrain  Processor),  which 
is  not  shown  in  Figure  5,  has  been  constructed  to  produce  suitable  blocks  of 
micro  terrain  data  for  use  by  the  surface  layer  analysis  from  L/TM  topographic 
data  tapes. 
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Following  this  overview  further  details  of  the  operation  of  the 
major  program  segments  are  given  in  the  following  sections. 


V. 


MAJOR  PROGRAM  SEGMENTS 


The  function  and  internal  organization  of  the  major  program  segments, 
directly  or  indirectly  subordinate  to  WNDMGR  are  described  in  more  detail. 

V.l  DTBMGR  (Data  Base  Manager) 

The  organization  of  DTBMGR  is  shown  schematically  in  Figure  6,  which 
indicates  the  types  of  meteorological  data  which  may  be  sought.  This  search 
includes  substantially  all  the  data  types  available  in  the  EPAMS  data  base. 

The  criteria  for  usable  types  of  data  depend  upon  the  considerations  explained 
under  OATANL  below.  The  function  of  DTBMGR  is  to  obtain  from  the  data  base 
the  data  which  is  potentially  relevant,  and  to  store  it  in  a readily  accessible 
memory  block  for  subsequent  processing  by  DATANL.  Each  of  the  routines  sub- 
ordinate to  DTBMGR  accesses  a particular  type  of  data.  Through  user  specified 
flags  any  combination  of  data  types,  including  all  or  none,  are  accessed.  If 
user  flags  are  not  set,  DTBMGR  accesses  all  available  data  types.  In  DTBMGR 
criteria  of  data  relevance  are  based  simply  upon  the  time  and  location  of  the 
surface-layer  analysis  to  be  performed. 

MRCUA  seeks  the  most  recent  upper  air  sounding  data  (up  to  12  hours 
old)  from  observation  stations  within  250  km.  of  the  simulation  site.  The 
inventory  of  upper  air  data  is  read  until  data  less  than  12  hours  old  is  found. 
A list  of  upper  air  stations  within  250  km.  of  the  simulation  site,  ordered 
by  increasing  distance,  is  generated.  Upper  air  data  from  these  stations  is 
read  until  four  stations  have  been  obtained  or  the  list  is  exhausted.  An 
option  provides  for  acquisition  of  upper  air  data  at  two  time  levels,  within 
12  hours  after  and  before  simulation  time,  for  interpolative  purposes  when  GWC 
prediction  data  is  either  not  present  or  not  desired. 

MRCSFC  seeks  data  from  surface  observations  at  times  previous  to 
simulation  time  up  to  a time  limit,  in  hours,  set  by  input  flags.  The  search 
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extends  to  150  km  from  the  simulation  site,  but  this  spatial  range  is  decreased 
by  35  km  for  each  hour  of  time  difference  between  the  simulation  time  and  the 
time  of  the  observation.  The  search  procedure  produces  a list  of  observations 
which  satisfy  these  criteria.  Data  from  this  list  is  read  until  six  data 
sets  are  found  or  the  list  is  exhausted. 

MRCGWC  seeks  USAF  Global  Weather  Central  "Fine-Mesh"  prediction  data 
at  the  four  GWC  gridpoints  closest  to  the  simulation  area.  Data  is  sought 
at  two  time  levels,  the  actual  simulation  time  and  the  time  at  which  the 
previously  found  upper  air  sounding  observations  were  made.  (In  the  case  of 
synoptic  soundings,  the  latter  time  is  the  GWC  analysis  time.)  The  search 
procedure  reads  the  GWC  inventory,  creates  a list  of  grid  points  closest  to 
the  simulation  site,  and  determines  the  block  containing  the  GWC  data  at  the 
time  required.  The  time  is  first  set  equal  to  the  upper  air  observation  time, 
and  GWC  data  sets  are  read  until  four  data  sets  are  found  or  the  list  is  ex- 
hausted. The  procedure  is  then  repeated  for  the  simulation  time. 

MESMOD  acquires  data  previously  generated  by  the  ASL  meso-scale  model 
at  the  nine  grid-points  (grid  interval,  5 km)  closest  to  or  in  the  simulation 
area.  These  data  comprise  the  two  components  of  wind  momentum  averaged  through 
a layer,  the  two  vertical  moments  of  wind  momentum  averaged  through  the  layer, 
the  two  components  of  total  energy  flux  averaged  through  the  layer,  and  the 
variable  layer  height.  These  data,  resulting  from  a diagnostic  meso-scale 
analysis,  are  deemed  applicable  if  their  analysis  time  is  within  three  hours 
of  the  prescribed  simulation  time. 

MESNET  is  at  present  a dummy  routine,  inserted  to  enable  future  consid- 
eration of  data  acquired  from  a local  mesoscale  observational  network. 

The  accessing  of  upper  air,  surface,  and  GWC  data  in  the  foregoing 
routines  is  a substantial  modification  of  routines  previously  used  for  data 
accessing  by  DUMBAULD  and  BJORKLUND  (1976). 


Placing  of  the  major  program  segment  DATANL  subordinate  to  DTBMGR 
prevents  the  large  block  of  data  acquired  by  DTBMGR  from  appearing  at  a higher 
program  level. 

V.2  DATANL  (Data  Analysis) 

Though  subordinate  to  DTBMGR,  data  analysis  constitutes  a major  pro- 
gram segment.  The  function  of  the  data  analysis  routine  (DATANL)  is  to 
generate  from  the  relevant  data  extracted  from  the  data  base  by  DTBMGR  the 
parameters  required  to  drive  the  surface  layer  wind  analysis,  WINDEX,  as 
described  in  Section  III.  The  subordinate  elements  of  DATANL  are  shown  by 
Figure  7.  DATANL  executes  these  elements  as  determined  by  priority  ordering 
and  data  availability  or  as  specified  by  user  supplied  input  flags. 

The  program  element  MANUAL  reads  user  supplied  driving  parameters  for 
WINDEX  when  they  are  present  and  their  use  is  specified. 

The  program  element  NETVAR  is  an  inoperative  dummy  routine,  included 
to  provide  a slot  for  future  use  of  local  observational  data  from  within  the 
simulation  area  to  generate  input  parameters  for  the  surface  wind  analysis. 

The  program  element  MESVAR  extracts  a value  of  surface  wind  in  the 
simulation  area  from  data  previously  generated  by  the  one-layer  ASL  mesoscale 
model.  The  methods  described  in  Section  III.l,  employing  asymptotic  matching 
of  surface  layer  and  outer  layer  profiles,  BLACKADAR  and  TENNEKES  (1968),  are 
used  to  establish  a surface  layer  wind  estimate  from  the  mesoscale  model 
Output. 


The  program  element  PROFLS,  together  with  its  subordinate  routines 
as  indicated  in  Figure  7,  determines  the  interpolative  planes  of  upper  air 
data  over  a large  geographic  area  which  includes  the  simulation  area.  These 
interpolative  planes,  valid  at  the  simulation  time,  are  established  by  the 
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Figure  7.  Elements  of  Data  Analysis  (DATANL)  Segment 
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methods  described  In  *!ect1on  1 1 1. 2. 


The  program  element  TMPPRF  uses  the  results  of  PROFLS  to  establish  th 
vertical  potential  temperature  profile  at  the  simulation  site. 

The  program  element  SRFTMP  employs  the  method  described  In  Section  I I I. 3 

\ 

to  generate  an  Initial  estimate  of  the  surface  heating  in  the  simulation  area 
using  the  surface  station  data.  The  values  of  the  upper  air  pressure  and  poten- 
tial temperature  extrapolated  to  the  surface  at  the  location  of  each  surface 
station,  together  with  the  observed  surface  temperature,  provide  an  estimate 
of  the  surface  air  heating,  AQ/Cp.  The  average  surface  air  heating,  an  input 
to  the  surface  layer  analysis,  is  used  by  WINDEX  to  initialize  the  field  of 
surface  potential  temperature  in  the  simulation  area. 

The  program  element  UAVAR  employs  the  upper  air  temperature  and  pressure 
profiles  In  conjunction  with  surface  station  wind  and  temperature  observations 
to  produce  an  estimate  of  general  surface  wind  at  the  simulation  site.  UAVAR 
implements  the  method  described  In  Section  III. 3 by  using  a computed  surface 
geostrophic  wind  and  the  deviations  of  observed  surface  winds  away  from  1t  to 
extrapolate  surface  wind  observations  to  the  simulation  site. 

V.3  WINDEX  (Wind  Extrapolation) 

The  major  program  segment,  WINDEX,  performs  the  high  resolution  sur- 
face layer  analysis  of  the  wind  field  over  the  local  simulation  area.  It 
accepts  the  data  supplied  by  OATANL  consisting  of  an  estimated  uniform  surface 
wind  over  the  simulation  area,  the  vertical  profiles  of  potential  temperature 
and  pressure  at  the  simulation  site,  and  an  estimate  of  surface  air  heating. 

In  addition  to  these  metorological  parameters  WINDEX  uses  high  resolution 
arrays  of  terrain  elevation  and  surface  roughness.  The  organization  and  sub- 
ordination of  the  constituent  elements  of  WINDEX  are  shown  In  Figure  8. 
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The  element  INPUTS  initializes  constants  and  transfers  data  to  input 
arrays  of  WINDfX. 

The  elc.nent  OUTPUT  writes  the  final  wind  and  temperature  fields  to 
mass  storage  files  in  the  EPAMS  data  base  and  prints  a formatted  description 
of  wind  analysis  results. 

After  the  operation  of  the  element  SETUP  which  initializes  the  arrays 
of  wind,  temperature,  and  terrain  slopes,  the  core  of  the  analysis  is  per- 
formed by  the  routine  RELAX.  These  two  routines  are  described  in  the  para- 
graphs immediately  below. 

V.3.1  SETUP  (Set  Up) 

The  program  element  SETUP  performs  calculations  required  to  initialize 
the  relaxational  variation  of  the  windfield.  The  field  of  upper  air  potential 
temperature  extrapolated  to  the  surface,  which  serves  as  the  ambient  back- 
ground temperature,  is  calculated.  Arrays  of  the  horizontal  derivatives  of 
terrain  elevation  are  also  calculated.  Both  of  these  arrays,  background 
potential  temperature  and  terrain  derivatives,  remain  fixed  throughout  the 
subsequent  relaxation. 

Using  the  method  of  Section  III. 3 the  surface  heating  determined  from 
surface  station  data  is  used  to  establish  an  elevation  dependent  surface 
potential  temperature  field  which  provides  the  initial  buoyancy  and  tempera- 
ture fields  for  the  relaxation  process. 

The  arrays  of  surface  wind  field  components  are  initialized  to  the 
uniform  general  wind  provided  by  DATANL.  A coordinate  rotation  is  required 
since  internally  WINDEX  uses  wind  components  rotated  45  degrees  with  respect 
to  the  terrain  axes.  (See  Appendix  B and  Figure  B.l.)  After  completion  of 
the  calculation,  OUTPUT  inverts  this  rotation  to  provide  output  wind  components. 
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V.3.2  RELAX  (Least  Constraints  Relaxation) 


The  program  element  RELAX  implements  the  concepts  of  Section  II  by  a 
set  of  numerical  algorithms  which  perform  a variational  relaxation  of  wind 
and  temperature  fields  in  the  surface  layer  to  generate  a physically  based 
estimate  consistent  with  mass  conservation,  the  equation  of  motion,  surface 
boundary  conditions,  the  constraint  of  the  convoluted  terrain  surface,  and 
available  meteorological  information. 

RELAX  performs  a user  prescribed  number  of  relaxation  sweeps  over  the 
grided  arrays  of  velocity  and  temperature  fields.  During  a single  sweep 
corrections  of  velocity  and  temperature  to  reduce  the  integrals  of  the  model 
equations  (II.ll)  are  computed  at  each  grid  point  and  stored.  During  the 
sweep  the  local  contributions  to  each  of  the  integrals  are  summed  to  provide 
the  total  value  of  each  of  the  integrals  at  the  conclusion  of  the  sweep. 

After  the  sweep  is  completed  the  corrections  of  temperature  and  velocity  are 
applied  at  all  grid  points,  a simultaneous  relaxation  of  the  fields.  RELAX 
contains  two  sets  of  arrays  of  wind  and  temperature.  In  addition  to  the  wind 
and  temperature  arrays  which  are  being  relaxed,  the  wind  and  temperature  arrays 
corresponding  to  the  minimum  constraint  obtained  up  to  the  current  stage  of  the 
relaxation  are  saved.  When  the  prescribed  number  of  relaxation  steps  is  com- 
pleted these  fields,  corresponding  to  the  minimum  constraint  at  any  stage  of 
the  relaxation,  are  output  as  the  best  estimate. 

Calculation  of  local  contributions  to  the  dynamic  constraint  and 
temperature  flux  integrals  requires  that  all  subordinate  routines  of  RELAX  be 
called  at  least  once,  and  sometimes  several  times,  at  each  grid  point  during 
each  relaxation  sweep.  As  detailed  in  Appendix  B,  the  local  contributions  to 
the  integrals  are  calculated  in  terms  of  fluxes  out  of  volume  elements  which 
subdivide  the  computational  layer.  A given  grid  point  at  which  velocity  compo- 
nents and  temperature  are  defined  can  appear  on  the  surface  normal  face  of 
each  of  four  overlapping  flux  boxes.  The  flux  boxes  couple  a field  quantity 
at  one  grid  point  to  the  field  quantities  at  each  of  the  surrounding  eight 
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grid  points.  Therefore  a local  grid  consisting  of  these  nine  grid  points  is  | 

provided  in  the  structure.  j 

I 

^ ! 

The  routine  STGDBX  (Set  Grid  Boxes)  determines  whether  the  current  ] 

grid 'point  is  in  the  interior,  on  the  boundary,  or  in  the  corner  of  the  array 
and  sets  the  box  indices  which  determine  which  of  the  surrounding  four  flux 
boxes  are  possible.  In  the  interior  all  four  are  possible,  at  the  boundary  ! 

only  two,  and  in  a corner  only  one. 

The  routine  WEIGHT  zeros  the  box  indices  of  all  but  the  two  flux  boxes 
most  nearly  upstream  of  the  current  grid  point,  so  only  upstream  flux  boxes 
are  used.  (A  user  option  provides  for  use  of  all  4 flux  boxes,  if  desired.) 

At  boundaries  and  corners  possible  flux  boxes  are  used  regardless  of  wind 
direction. 

> 

The  routine  LOCQUA  (Local  Quantities)  sets  up  the  correspondence  between 
indices  of  the  local  9-point  template  and  the  global  grid  indices  of  the  simula- 
tion area.  Through  calls  to  its  subordinate  routines,  LOCPNT  (Local  Point) 
and  PTPROF  (Point  Profiles),  it  acquires  or  computes  the  values  of  all  variables  • 

needed  to  evaluate  the  contributions  of  the  local  flux  boxes  to  the  integrals 
of  constraint  and  temperature  flux  divergence.  The  selection  of  flux  boxes  made 
previously  in  WEIGHT  determines  at  which  points  in  the  local  9-point  template 
these  quantities  are  required.  Because  typically  two  flux  boxes  are  used,  the 
local  9-point  template  is  not  completely  filled.  Each  filled  point  of  the 
local  template  contains:  the  two  horizontal  derivatives  of  terrain  elevation, 
an  area  scaling  factor  of  sloping  terrain,  the  exponent  of  the  power  law  wind 
profile,  a momentum  flux  averaging  factor  of  the  power  law  profile,  the  sur- 
face normal  derivative  of  potential  temperature,  the  buoyancy,  two  components  i 

of  wind  velocity,  and  the  local  temperature.  This  set  of  routines  uses  the  j 

methods  described  in  Section  I 1.4. 3 to  determine  the  wind  and  temperature 
profiles  at  each  point. 


The  segment  ACCSQR  (Acceleration  Squared,  Resultant)  computes  the  least 
constraint  integral  for  each  of  the  local  flux  boxes  used,  as  well;' as  the 


surface  normal  acceleration  in  each  of  the  flux  boxes.  (The  surface  normal 
acceleration  is  used  in  the  next  relaxation  sweep  by  the  routine  PTPROF  to 
compute  flow  curvature  corrections  to  the  stability).  The  results  for  the 
flux  boxes  are  then  averaged. 

The  actual  calculation  of  the  constraint  integral  of  a single  flux 
box  is  done  by  the  routine  ACCSQL  (Acceleration  Squared,  Local).  This  routine 
employs  the  algorithms  derived  in  Appendix  B based  upon  the  terrain  following 
coordinate  system  described  in  Section  I I. 4. 2. 

The  routines  TPFLUX  (Temperature  Flux)  and  TPFLXL  (Temperature  Flux, 
Local)  are  structurally  analogous  to  ACCSQR  AND  ACCSQL,  respectively.  They 
employ  the  algorithms  of  Appendix  B to  calculate  the  local  contribution  to  the 
potential  temperature  flux  integral. 

To  implement  the  relaxation  scheme  described  in  Section  I I. 5 the 
segment  DELTA  calculates  the  derivative  of  the  local  constraint  integral  with 
respect  to  each  of  the  two  components  of  wind  velocity  at  the  simulation  grid 
point.  It  also  calculates  the  derivative  of  the  local  contribution  to  the 
temperature  flux  integral  with  respect  to  the  local  grid  temperature.  These 
derivatives  are  established  through  additional  calls  to  ACCSQR  and  TPFLUX 
with  slightly  altered  velocity  and  temperature. 

The  control  routine  RELAX  uses  these  derivatives,  accumulated  during 
the  relaxation  sweep,  to  compute  and  apply  relaxation  corrections  to  the  wind 
and  temperature  fields  according  to  the  method  of  Section  I I. 5 prior  to  the 
initiation  of  the  next  relaxation  sweep. 

V.4  DRIVRS  (Driving  Parameter  Test) 

I 

I 

The  major  program  segment  DRIVRS  (Drivers)  performs  the  important 
I executive  function  prior  to  the  execution  of  WINDEX  of  testing  whether  the 

* driving  (input)  parameters  of  WINDEX  differ  sufficiently  from  the  driving 
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parameters  of  previous  archived  executions  to  justify  a new  execution  of 
WINDEX.  The  driving  pa^alneters  tested  are  the  terrain  data,  background 
wind,  and  surface  heating.  The  tests  are  the  following:  terrain  data  must 
be  Identical;  the  background  wind  estimates  must  agree  to  within  20%  in 
magnitude  and  to  within  10  degrees  In  direction;  the  surface  heating 
estimates,  AQ/Cp,  must  agree  to  within  1.5  degrees.  If  all  the  tests  are 
met  for  some  archived  set,  the  run  number  of  the  archived  run  is  printed 
and  WINDEX  Is  not  executed.  If  no  archived  set  meets  these  tests,  the 
surface  wind  file  header  Is  updated  with  the  new  driving  parameters  and 
WINDEX  Is  executed. 


surface  normal  acceleration  In  each  of  the  flux  boxes.  {The  surface  normal 
acceleration  is  used  in  the  next  relaxation  sweep  by  the  routine  PTPROF  to 
compute  flow  curvature  corrections  to  the  stability).  The  results  for  the 
flux  boxes  are  then  averaged. 

The  actual  calculation  of  the  constraint  integral  of  a single  flux 
box  is  done  by  the  routine  ACCSQL  (Acceleration  Squared,  Local).  This  routine 
employs  the  algorithms  derived  in  Appendix  B based  upon  the  terrain  following 
coordinate  system  described  in  Section  II. 4. 2. 

The  routines  TPFLUX  (Temperature  Flux)  and  TPFLXL  (Temperature  Flux, 
Local)  are  structurally  analogous  to  ACCSQR  AND  ACCSQL,  respectively.  They 
employ  the  algorithms  of  Appendix  B to  calculate  the  local  contribution  to  the 
potential  temperature  flux  integral. 

To  implement  the  relaxation  scheme  described  in  Section  I I. 5 the 
segment  DELTA  calculates  the  derivative  of  the  local  constraint  integral  with 
respect  to  each  of  the  two  components  of  wind  velocity  at  the  simulation  grid 
point.  It  also  calculates  the  derivative  of  the  local  contribution  to  the 
temperature  flux  integral  with  respect  to  the  local  grid  temperature.  These 
derivatives  are  established  through  additional  calls  to  ACCSQR  and  TPFLUX 
with  slightly  altered  velocity  and  temperature. 

The  control  routine  RELAX  uses  these  derivatives,  accumulated  during 
the  relaxation  sweep,  to  compute  and  apply  relaxation  corrections  to  the  wind 
and  temperature  fields  according  to  the  method  of  Section  II. 5 prior  to  the 
initiation  of  the  next  relaxation  sweep. 

V.4  DRIVRS  (Driving  Parameter  Test) 

The  major  program  segment  DRIVRS  (Drivers)  performs  the  important 
executive  function  prior  to  the  execution  of  WINDEX  of  testing  whether  the 
driving  (input)  parameters  of  WINDEX  differ  sufficiently  from  the  driving 
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VI 


INDEPENDENT  UTILITY  PROGRAMS 


The  surface  layer  analysis  routine  of  EPAMS  is  complemented  by  some 
utility  routines  to  facilitate  its  operation.  These  routines  serve  the 
functions  of  creating  appropriate  arrays  of  terrain  data  for  the  surface 
layer  analysis  and  of  providing  a flexible  plotting  capability  for  surface 
layer  analysis  results.  The  terrain  processing  routines  access  files  of 
topographic  data  available  at  the  ASL  and  produce  the  blocks  of  high-resolu- 
tion terrain  data  used  by  the  surface  layer  analysis.  A plotting  routine 
is  provided  for  graphic  display  of  the  surface  layer  analysis  results  which 
are  stored  in  the  EPAMS  surface  wind  file.  Three  simple  interactive  routines 
are  also  supplied  to  aid  in  file  management.  The  terrain  processing  and 
the  plotting  routines,  while  presently  independent  of  the  wind  analysis, 
could  readily  be  made  a part  of  the  EPAMS. 

VI. 1 TERRAIN  PROCESSING  (TERPRO) 

Two  programs  perform  terrain  processing,  one  for  the  southwestern 
U.S.  and  one  for  a block  of  terrain  in  Europe  (near  Fulda,  Germany). 

Figure  9 shows  the  general  structure  of  the  SWUS  program.  Its  func- 
tion is  to  use  the  micro-terrain  data  available  at  ASL  (consisting  of  some 
400  80-by-8C  blocks  of  terrain  elevation  data  on  the  UTM  grid  at  approxi- 
mately 63.5  meter  horizontal  resolution)  to  create  40-by-40  blocks  of  terrain 
elevation  and  surface  roughness  length  data  usable  by  the  surface  layer 
analysis.  BLKDRV  acquires  header  data,  reads  input,  and  writes  out  updated 
header  data. 

BLKMGR  calls  its  major  subordinates,  monitors  their  results,  updates 
the  header  after  each  new  pair  of  terrain  elevation  and  surface  roughness 
arrays  has  been  created,  generates  roughness  estimates  based  upon  terrain 
elevation,  and  blocks  out  the  terrain  and  roughness  arrays  to  mass  storage. 
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Figure  9.  SWUS  Terrain  Processor  (TERPRO) 


Fiaure  TO.  EurOOMn  Tprrain  Prnroceni*  ^TCDDOn^ 


REGRID  determines  the  grid  spacing,  dimensions,  and  UTM  coordinates 
of  the  southwest  corner  of  the  block  to  be  created.  BLOCKO  determines  which 
blocks  from  the  large  input  terrain  file  are  needed  to  create  the  output 
block.  PASTE  keeps  track  of  indices  while  pasting  together  the  portions  of 
already  processed  data  which  will  compose  the  output  block.  FILTER  acquires 
one  of  the  input  80-by-80  blocks,  averages  terrain  elevations,  applies 
corrections  to  avoid  excessive  smoothing,  and  returns  the  portion  required 
in  the  final  output  block. 

Figure  10  shows  the  general  structure  of  the  program  which  processes 
the  European  terrain  data.  The  initial  European  data  file  consists  of  a 
single  lOl-by-51  block  of  packed  data  which  contains  elevation  and  height 
of  ground  cover.  The  processing  routine  outputs  a pair  of  51-by-31  data  blocks 
containing  terrain  elevation  and  surface  roughness  length. 

BLKDRV  and  BLKMGR  perform  the  same  functions  as  the  routines  of  the 
same  name  in  the  SWUS  terrain  processor.  CORNER  determines  grid  indices  in 
the  lOl-by-51  block  corresponding  to  UTM  coordinates  specifying  the  corners  of 
the  terrain  block  to  be  created.  CARVE  transfers  the  required  51  by  31  block 
from  the  larger  block  to  a working  array.  UNPACK  unpacks  the  data  in  the 
working  array,  computes  roughness  lengths  from  terrain  cover  heights,  adds  the 
displacement  height  of  terrain  cover  to  the  terrain  elevation,  and  returns 
the  two  blocks,  terrain  elevation  and  roughness  length,  to  be  stored  in  the 
output  file. 

VI. 2 PLOniNG  ROUTINES 

Figure  11  displays  the  general  structure  of  the  MRC  plotting  program 
constructed  to  plot  data  generated  by  the  surface  layer  wind  analysis.  The 
plotting  program  employs  many  program  elements  developed  by  ASL  personnel 
and  available  on  program  files  at  ASL. 

XECAMT  and  PLTPRG  provide  ready  interfacing  with  the  EPAMS  control 


62 


structure. 


The  executive  for  the  MRC  plotting  routine  is  OMEXEC  which  reads 
input,  sets  defaults,  calls  subordinates  and  prints  formatted  descriptions 
of  the  final  resulting  plots.  RESET  initializes  the  plotter  prior  to  each 
new  plot.  Initialization  may  consist  of  overlaying  plots,  vertical  stacking 
on  the  plot  paper,  or  horizontal  displacement  on  the  plot  paper  to  a new 
origin. 

The  plot  routine  can  produce  several  different  types  of  plots.  Each 
of  these  plot  types  is  generated  by  one  of  the  major  subordinate  elements  of 
OMEXEC.  The  major  subordinate  elements  call  many  of  the  same  routines.  TERCN 
sets  up  a call  to  KSOCON  to  produce  contour  plots  of  terrain  elevation. 

TMPCN  performs  a similar  task  to  produce  contour  plots  of  potential  temperature. 
STRMCN  sets  up  data  for  a call  to  STRMLN  which  produces  streamline  plots  and, 
optionally,  calls  KSOCON  for  an  overlaid  plot  of  wind  speed  isotachs.  PLOVEC 
prepares  data  for  a call  to  VECPLT  which  plots  the  windfield  as  small  discrete 
vectors,  whose  direction  is  that  of  the  wind  and  whose  magnitude  is  propor- 
tional to  wind  speed.  THREED  calls  EZSRFC  to  obtain  three-dimensional  pro- 
jective views  of  terrain  relief. 

The  routines  DPREPl  and  DPREP2  are  used  to  transfer  data  from  mass 
storage  blocks  to  arrays  required  as  calling  arguments  for  the  library  plot 
routines  KSOCON,  STRMLN,  VECPLT,  and  EZSRFC.  DPREP3  performs  scaling  and 
alignment  for  PLOVEC. 

VI. 3 FILE  MANAGEMENT 

The  routine  BLKINI  is  a brief  interactive  routine  used  to  initialize 
the  header  block  of  the  microterrain  files  or  the  files  of  surface  wind 
analysis  results.  When  these  files  are  first  catalogued  BLKINI  must  be 
used  to  write  the  header  data  which  makes  possible  subsequent  reads  of  the 
header.  The  first  word  of  the  header  should  be  set  equal  to  zero. 
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TERDOC  and  PLTDOC  write  out  formatted  descriptions  of  header  data 
for  the  microterrain  and  surface  wind  files  respectively. 


VII 


GENERAL  CONCLUSIONS 


There  remain  some  general  aspects  as  well  as  some  specific  points 
relating  to  the  surface  wind  analysis  for  EPAMS  which  warrant  further  dis- 
cussion. Experience  in  the  development  of  the  model  has  indicated  limita- 
tions and  suggested  possible  avenues  of  improvement.  These  are  examined 
below. 

VII. 1 Data  Analysis  Procedure 

The  high-resolution  surface  wind  analysis  was  originally  conceived  as 
an  extrapolative/interpolative  method  for  a terrain-sensitive  estimation  of 
surface  wind  fields  on  the  basis  of  a few  real  time  measurements  located  in 
the  simulation  area.  In  the  EPAMS  system  such  measurements  are  presently 
unavailable,  so  initial  input  estimates  are  derived  by  analysis  of  meteorolo- 
gical observational  data  remote  in  space  and  sometimes  remote  in  time.  The 
data  analysis  procedure  is  a rational  attempt  to  bridge  a large  gap  in  scale 
on  a physical  basis  without  the  use  of  an  intermediate  (meso-)  scale  model. 

A simple  mesoscale  model  incorporating  gross  regional  topography  might 
perform  this  function  better. 

The  mesoscale  model  of  DANARO  (1977)  with  some  modifications  would  be 
appropriate  for  this  purpose.  The  Danard  model  accounts  for  topographic  struc- 
ture, surface  diabatic  effects  and  synoptic  pressure  gradients  through  a clever 
application  of  the  pressure  tendency  equation,  the  equation  of  motion,  and 
the  thermodynamic  energy  equation  in  a relatively  simple  manner.  One  of  its 
strengths  is  the  ability  to  operate  with  only  numerical  prediction  data  or 
data  from  a single  sounding.  Data  of  this  type,  in  fact  in  more  detail,  is 
generated  from  the  EPAMS  data  base  by  the  data  analysis  procedures  for  the 
surface  layer  wind  calculation.  Two  possible  weaknesses  of  the  Danard  model 
are  its  rough  parameterization  of  the  atmospheric  boundary  layer  and  its 
present  structure  as  an  initial  value  problem  requiring  integrations  forward 
in  time  to  achieve  a balanced  solution.  The  use  of  better  boundary  layer 
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parameterization  as  described  by  ARYA  (1977)  possibly  in  conjunction  with  the 
ideas  of  thermal  layers  as  used  in  the  ASL  meso-scale  layer  model  would  go 
far  to  rectify  the  first  of  these  problems.  Casting  of  the  model  equations 
into  steady  state  variational  form  instead  of  initial  value  problem  form 
would,  not  only  remove  same  uncertainties  with  the  time-dependent  approach, 
but  would  also  permit  the  natural  incorporation  of  constraints  arising  from 
additional  surface  or  sounding  observations  which  might  exist.  Use  of  all 
observational  data  could  only  improve  reliability.  Data  analysis  through  a 
mesoscale  model  could  provide  more  reliable  input  to  the  high-resolution 
wind  model  as  well  as  providing  windfields  at  mesoscale  resolution  over  a 
larger  region. 

VII. 2 Surface  Layer  Analysis 

In  the  development  of  the  numerical  algorithms  for  the  surface  layer 
analysis  an  effort  was  made  to  encode  the  basic  model  equations  as  accurately 
as  possible.  The  analysis  procedure  is  singularly  delicate  because  the 
variational  integral  depends  upon  the  fourth  power  of  velocities  and  contains 
no  terms  such  as  opposing  pressure  and  frictional  forces  whose  balance  would 
occur  at  a finite  velocity.  With  some  early  algorithms  the  model  run  without 
any  buoyancy  forces  produced  wind  fields  which  decreased  in  speed  as  the 
relaxation  proceeded,  with  consequent  monotonic  decrease  of  the  constraint  to 
no  minimum  but  zero.  At  first  this  behavior  was  attributed  entirely  to  the 
"open  boundary"  problem  of  the  surface  layer  approximation  and  a great  many, 
necessarily  somewhat  simplified,  remedies  using  an  additional  vertical  layer 
were  attempted.  None  of  these  efforts  were  satisfactory  and  in  the  end  they 
proved  unnecessary.  The  difficulty  was  overcome  by  the  more  accurate  algo- 
rithm of  averaging  the  square  of  acceleration  rather  than  squaring  the  average 
of  acceleration  within  the  fundamental  flux  boxes  of  the  computation  (See 
Appendix  B).  In  general,  experience  with  the  method  indicates  that  accurate 
computational  replication  of  basic  principles  is  more  effective  than  seem- 
ingly more  expeditious  computational  short-cuts. 
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Incorporation  of  more  vertical  structure,  however,  might  still  be 
desirable,  not  to  solve  the  above  problem  but  to  enhance  the  fidelity  of 
results.  As  presently  constructed  the  model  shows  terrain  sheltering  and 
wake  structure  but  complete  effects  of  flow  separation  are  doubtful  in  an 
analysis  of  a single  surface  layer.  Resolution  above  the  present  single 
layer  could  best  be  achieved  by  analytical  functions  with  variable  para- 
meters which  continue  the  surface  layer  profiles  rather  than  by  finite 
difference  methods  applied  to  several  layers.  Should  further  development 
of  the  model  occur  a complete  re-examination  of  not  only  the  vertical  but 
also  the  horizontal  structure  of  the  computational  grid  would  yield 
dividends.  A uniform  computational  grid  is  wasteful  in  flat  areas.  A 
variable  horizontal  grid  size,  perhaps  of  basic  triangular  pattern,  to 
provide  resolution  to  only  the  degree  needed  would  decrease  overall  storage 
requirements  and  free  memory  to  incorporate  more  vertical  structure. 

The  geometrical  proportions  of  the  basic  flux  box  impose  a limita- 
tion on  the  use  of  the  surface  layer  analysis.  The  present  analysis  contains 
approximations  valid  if  the  layer  thickness  is  less  than  0.1  of  the  basic  hori- 
zontal grid  interval.  The  maintenance  of  this  approximate  proportion  also  insures 
that  momentum  fluxes  through  top  and  side  faces  of  the  flux  box  are  roughly 
comparable.  For  validity  of  the  atmospheric  surface  layer  approximations  the 
computational  height  must  remain  in  the  surface  layer,  perhaps  less  than  50 
meters.  Therefore  uncertainties  arise  if  a horizontal  grid  interval  greater 
than  500  meters  or  much  less  than  10  times  the  computation  height  is  used. 

Because  the  basic  wind  analysis  routine  was  developed  on  a smaller 
computer  than  the  UNIVAC  1108,  the  numerical  code  performs  more  computations 
than  necessary  when  more  memory  is  available.  At  each  grid  point  at  each 
relaxational  sweep  physical  quantities  are  re-computed  at  grid  points  of  the 
surrounding  9-point  template.  The  templates,  of  course,  overlap  and  computa- 
tion time  could  be  saved  by  providing  large  global  arrays  to  store  these 
physical  quantities  and  avoid  redundant  calculations.  While  faster  running 
is  desirable  on  the  UNIVAC  1108,  the  adaptability  of  the  basic  wind  analysis 
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(without  the  data  accessing  and  processing  routines)  to  smaller  computers 
underscores  its  potential  applicability  for  operational  use  in  the  field. 

As  mentioned  previously  treatment  of  the  diabatic  effects  at  the  earth- 
atmosphere  interface  might  be  improved.  Mot  only  could  the  fluid  dynamic 
energy  equation  be  handled  with  more  precision,  but  also  better  initial  surface 
air  temperature  estimates  are  possible.  Algorithms  to  account  for  solar 
radiative  heating  and  long  wave  length  ground  radiation  as  a function  of  terrain 
slope,  sun  position  and  ground  cover  could  be  added  to  the  present  estimating 
procedure  which  is  based  solely  upon  terrain  elevation.  Cloud  cover  and  humidity, 
presently  not  considered,  would  also  bear  upon  this  question. 

Many  of  these  suggested  improvements  could  be  possibly  incorporated, 
but  at  the  expense  of  increased  model  complexity.  One  of  the  prime  advantages 
of  the  present  surface  layer  analysis  is  its  simplicity,  both  in  concept  and 
in  its  numerical  implementation.  Throughout  the  model  development  an  effort 
has  been  made  to  refrain  from  non-productive  elaboration,  based  on  the  under- 
standing that  simplicity  was  a desirable  attribute.  Refinements  should  be 
instituted  only  if  clearly  required  and  then  only  if  they  do  not  entail  a 
heavy  computational  burden.  The  available  information  upon  which  the  analysis 
is  based  may  not  justify  attempts  at  added  precision.  Insightful  approaches 
rather  than  brute-force  computations  are  needed. 

VII. 3 Validation 

Presently  the  surface  layer  wind  analysis  is  unvalidated  in  the  sense 
that  its  present  form  has  not  been  compared  with  observational  data.  Since 
observational  data  at  the  resolution  of  the  analysis  will  likely  be  extremely 
difficult  to  obtain  any  validation  must  consist  of  selected  spot  comparisons. 

The  problem  is  the  comparison  of  an  estimated  windfield,  (at  the  model  reso- 
lution) with  another  windfield  well  defined  at  observation  locations  but  only 
estimated  at  other  locations.  A cross-correlation  of  the  observed  wind  vectors 


with  the  modeled  wind  vectors  would  provide  a measure  of  comparison  but  only 


at  the  set  of  observational  sites.  The  need  is  for  a general  integral  measure 
to  compare  two  fields  taking  account  of  the  fact  that  except  at  selected  points 
one  of  the  fields,  the  observational  one  in  this  context,  is  the  more  poorly 
defined.  We  do  no  more  than  state  this  general  conception  of  the  validation 
problem. 


However,  the  surface  layer  analysis  within  EPAMS  presents  at  least  three 
model  structures  to  validate.  The  surface  layer  analysis  itself  given  accurate 
driving  parameters,  the  data  analysis  procedure  for  obtaining  driving  parameters 
from  meteorological  data  types,  and  the  total  analysis  which  couples  together 
both  the  data  analysis  and  the  surface  layer  analysis  are  the  three  structures. 
The  overall  analysis  could  be  relatively  invalid  because  of  the  inadequancy 
of  one  of  its  stages.  Likewise  the  wind  field  analysis  might  operate  well 
only  if  provided  more  accurate  input  than  the  data  analysis  generates.  In- 
vestigation of  these  detailed  questions  is  facilitated  by  the  control  structure 
provided,  which  allows  separate  operation  of  the  data  analysis  routines  and 
user  supplied  input  to  the  basic  surface  layer  analysis. 

VI I. 4 Additional  Model  Uses 


The  surface  layer  analysis  through  its  employment  of  surface  layer 
wind  and  temperature  profiles  establishes  in  the  course  of  the  calculation 
the  parameters  of  these  profiles.  Two  parameters  of  interest  are  the  surface 
friction  velocity,  u*,  and  the  Monin-Obukhov  length,  L.  Presently  these  para- 
meters are  not  saved  in  the  analysis,  but  given  adequate  storage  they  could 
be  recovered  and  stored  in  suitable  arrays.  These  parameters  are  of  interest  in 
their  own  right  and  perhaps  could  provide  necessary  input  for  a calculation 


of  flow  within  the  vegetative  canopy. 

The  advective  acceleration  and  its  accurate  calculation  play  a funda- 
mental role  in  the  surface  layer  analysis.  Once  a state  of  minimum  constraint 
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is  reached  the  advective  acceleration  does  not  remain  fixed  but  at  each  grid 
point  continues  to  fluctuate  about  some  average  value  as  the  relaxation  continues. 
The  fluctuating  acceleration  resulting  from  fluctuating  velocities  is  dimensionally 
equivalent  to  a fluctuating  stress  gradient.  To  be  sure  this  fluctuation 
is  a fluctuation  in  relaxation  steps  rather  than  a fluctuation  in  time.  Never- 
theless the  magnitude  of  this  fluctuation  is  governed  by  the  range  of  local 
dynamic  imbalance  occurring  in  the  flow  field.  It  is  tempting  to  conjecture 
that  these  fluctuations  may  model  the  actual  grid-resolvable  turbulent  fluctuations 
of  the  flow.  If  this  possibility  were  explored  and  substantiated  the  surface 
layer  analysis  could  be  extended  to  supply  turbulent  diffusivities  in  flows 
over  rough  terrain  in  addition  to  the  mean  wind  field  itself. 

The  surface  layer  wind  field  analysis  is  a new  approach  to  a difficult 
problem,  an  approach  which  offers  significant  conceptual  and  practical  advantages. 
Further  development  should  consist  of  extensive  exercise  of  the  model  coupled 
with  observational  tests.  Refinements  and  extensions  as  dictated  by  experimental 
and  theoretical  considerations  can  be  introduced  both  to  perfect  the  present 
model  and  to  pursue  additional  avenues  implicit  in  the  concept. 
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APPENDIX  A 

FILE  DESCRIPTIONS  AND  USER  INSTRUCTIONS 


The  total  software  associated  with  the  surface  layer  wind  analysis 
consists  of  the  following: 

1)  A main  program  file,  MRC*EPAMS.  (hereafter  referred  to  as  M.) 

2)  A utility  program  file,  MRC*UTILITY.  (hereafter  referred  to 
as  MT.) 


3)  Four  data  files: 

SWUS*MRCTRF 

SWUSMRC*WNDARCHIVE 

EURO*MRCTRF 

EUROMRC*WNDARCHIVE. 

All  software  is  stored  on  UNI VAC  1108  library  tape, 
contain  the  following  types  of  elements: 

1 ) FORTRAN  source 

2)  Relocatable 


Program  files 


3)  Absolute 

4)  Job  control 

5)  Sample  input  and  documentation 

File  M.  is  used  for  the  creation  and  execution  of  the  surface  wind 


A-1 


program,  while  MT.  supplies  plotting  capability  and  terrain  filtering  routines. 
The  first  two  data  files  contain,  respectively,  the  micro  terrain  input  and 
micro  wind  output  for  the  southwest  U.S.  The  other  two  data  files  contain 
corresponding  data  for  Europe.  The  structure  of  the  data  files  is  as 
follows.  The  terrain  files  have  a header  in  block  1,  followed  by  pairs  of 
blocks  containing  terrain  and  roughness  data,  respectively.  The  header  con- 
sists of  the  251  words  in  conmon  block  /TBLHDR/.  The  first  word,  RCOUNT, 
gives  the  number  of  archived  pairs  in  the  file.  The  other  words  give  grid 
dimensions,  UTM  coordinates,  and  grid  spacing  for  each  pair  of  blocks.  The 
surface  wind  and  temperature  output  files  also  contain  a header  in  block  1, 
followed  by  triples  containing  the  output  fields  of  potential  temperature, 
u-component  of  wind,  and  v-component  of  wind.  The  headers  for  these  files 
consist  of  the  401  words  in  common  block  /MRCHDR/.  The  first  word  gives  the 
number  of  archived  triples  in  the  file.  Other  words  give  the  driving  para- 
meters used  fcr  the  run  creating  the  output  fields. 

The  surface  wind  model  draws  on  the  following  data  bases  within  the 
EPAMS  system:  Upper  air,  surface  station,  GWC  prediction,  mesomodel , and 
mesonet.  As  of  November,  1977,  these  data  sets  were  contained  in  the  following 
files; 


FOR  SOUTHWEST  U.S. 


FILE  NAME 

DESCRIPTION 

SWOBS. 

upper  air  directory 

SWUAD. 

upper  air  data  inventory 

SWUS*SFDTA1 . 

surface  station  data  inventory 

SWGWCP. 

GWC  directory 

SWGWCO. 

GWC  data  inventory 

MRC*TERRAIN. 

mesoscale  terrain 

323*WSGRD2. 

mesomodel  output 
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FOR  EUROPE 


FILE  NAME 

DESCRIPTION 

EUROBS. 

upper  air  directory 

EURUAD. 

upper  air  data  inventory 

EUR0*SFDTA1 . 

surface  station  data  inventory 

Comments:  1.)  GWC  and  mesomodel  data  are  not  presently  available  for  Europe. 
2.)  The  surface  station  directory  is  contained  in  the  first  block  of  the 
surface  station  inventory  rather  than  in  a separate  file.  3.)  The  connection 
between  files  and  fortran  logical  unit  variables  is  given  below: 

FORTRAN  LOGICAL 

FILE  JCL  USE  NAME  UNIT  NUMBER  FORTRAN  VARTARI F 

MRC*TERRAIN. 

F3. 

3 

TRRNFL 

323*WSGRD2. 

F7. 

7 

GRIDF2 

XINFIL. 

10. 

10 

XINFIL 

SWOBS. 

F8. 

8 

OBFILE 

SWUAD. 

FI. 

1 

UAFILE 

SWGWCP. 

Fll. 

11 

GWCOBF 

SWGWCD. 

F12. 

12 

GWCFIL 

SWUS*SFDTA1 . 

F15. 

15 

SFCFIL 

SWUS*MRCTRF. 

F16. 

16 

MICTRF 

SWUSMRC*WNDARCHIVE.  FI  7. 

17 

MOTFIL 

PRINTS. 

6 

XOTFIL 

4.)  The  input  file,  XINFIL.,  is  a GUP  file  which  may  need 'to  be  created  prior 
to  running  the  model.  5.)  The  output  file  is  PRINTS,  which  is  the  default 
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file  for  FORTRAN  logical  unit  number  6.  6.)  To  run  the  model  in  Europe  re- 

quires appropriate  changes  in  file  assignments.  JCL  elements  which  assign 
the  proper  files  are  M.WNDASG/SWUS  for  the  SWUS  and  M.WNDASG/EUR  for  Europe. 


MAIN  PROGRAM  — INPUTS 

The  surface  wind  model  program  allows  the  user  flexibility  in  the 
following  areas: 

1)  data  bases  to  be  used, 

2)  time  and  place  of  simulation, 

3)  version  of  the  wind  model  to  the  run. 

The  user  specifies  his  options  by  setting  flags  in  the  input  file  (input  data 
is  in  namelist  format).  The  standard  input  file  contains  the  namelists 
/XFLAGS/,  /FLAGS/,  and  /TIMPLA/.  A description  of  all  flags  in  the  input 
file  is  given  in  element  M.USERGUIDE. 

/XFLAGS/  sets  flags  held  in  common  block  /MESAGE/  which  are  used  by 
the  EPAMS  executive.  The  flags  are: 

FUNCTN,  TASK,  JOB,  BLOCK,  FILE,  PRINT,  LEVEL. 

The  surface  wind  model  may  be  run  by  setting  FUNCTN  = 2,  TASK  » 2,  and  JOB  « 0. 
Other  flags  are  not  used. 

/FLAGS/  sets  flags  held  in  conmon  block  /MRCIPF/  and  are  used  by 
WNDM6R  to  control  the  data  base  search  and  execution  of  the  wind  model.  These 
flags  are  described  below. 


IDAT(I),  IMDT(I),  I = 1,6.  These  twelve  flags  specify  the  data  bases 
to  be  searched  and  special  features  of  the  search.  Indices  one  thru  six 
correspond,  respectively,  to  upper  air,  surface  station,  SWC,  mesomodel , 
mesonet,  and  manual  input  data.  If  IDAT(I)  = 0,  a search  is  made  of  the  data 
base  corresponding  to  index  I.  If  IDAT(I)  is  not  zero,  no  search  is  made. 

For  example,  a typical  run  would  have  IDAT(l)  = 0,  IDAT(2)  = 0,  IDAT(3)  = 0, 
IDAT(4)  =1,  IDAT(5)  = 1,  IDAT(6)  = 1;  this  indicates  that  the  upper  air, 
surface  station,  and  GWC  data  bases  are  to  be  searched  for  relevant  data, 
while  no  use  is  to  be  made  of  mesomodel,  mesonet,  or  manual  input  data. 

Mesonet  data  is  not  present  at  this  time  and  calls  to  the  mesonet  accessing 
routine  are  in  fact  dummied  out.  Mesomodel  data  should  be  sought  only  if  it 
has  been  specially  created  for  the  surface  wind  model.  It  is  hoped  that  later 
versions  of  the  EPAMS  system  would  permit  a mesomodel  to  be  called  prior  to 
calling  the  surface  wind  program.  If  the  user  wishes  to  input  manual  data, 
no  other  data  bases  need  be  searched.  The  flags  IMDT(I)  give  special  informa- 
tion about  how  the  data  base  searches  are  to  be  done.  If  IMDT(l)  = 0,  the  DA 
inventory  is  searched  for  observations  just  preceding  simulation. time.  If 
IMDT(l)  = 1 , UA  observations  just  preceding  and  just  following  simulation 
time  are  sought  and  readings  are  interpolated  in  time.  IMDT(l)  should  be 
zero  for  real-time  simulations,  and  1 for  European  simulations  (since  no  GWC 
data  exists  in  Europe).  IMDT(2)  places  limits  on  the  surface  station  data 
search.  Data  up  to  IMDT(2)  hours  old  will  be  sought.  The  recommended  value 
is  IMDT(2)  = 2.  IMDT(4)  is  the  number  of  the  first  block  of  mesomodel  data 
in  file  323*WSGRD2.  Presently  one  should  set  IMDT(4)  = 8 if  mesomodel  data 
is  to  be  sought.  Flags  IMDT(3),  IMDT(5),  IMDT(6)  are  not  used. 

The  flag  ILASTR,  if  set  equal  to  1,  directs  WNDMGR  to  return  control 
to  the  EPAMS  executive  at  the  end  of  a run.  If  ILASTR  = 0,  WNDMGR  will 
retain  control  and  read  input  from  namelists  SFLAGS  and  STIMPLA  for  another 
run. 

IHIERC  specifies  the  version  of  WINDEX  to  be  executed.  If  IHIERC  = 0. 
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data  bases  are  searched  and  data  analysis  is  performed,  but  WINDEX  is  not 
called.  IHIERC  = 1 directs  WINDEX  to  apply  corrections  to  the  initial  wind- 
field  but  make  no  changes  to  the  initial  temeprature  field.  IHIERC  = 2 
directs  changes  to  be  made  in  both  wind  and  temperature  fields. 

I FLUX  specifies  the  number  of  flux  boxes  to  be  used  computing  the 
local  contribution  to  the  acceleration  and  temperature  divergence  residuals. 

I FLUX  must  be  2 or  4,  and  2 is  recomnended. 

IRELAX  is  the  number  of  relaxation  sweeps  to  be  performed  by  WINDEX 
in  searching  for  wind  and  temperature  fields  with  minimum  residual.  IRELAX 
probably  should  be  greater  than  the  largest  array  dimension  (i.e.  larger  than 
ILE  + 1 - ILW  and  JLN  + 1 - JLS).  IRELAX  = 50  is  recommended. 

ILE,  ILW,  JLN,  JLS  specify  the  portion  of  the  micro  terrain  grid  over 
I which  the  wind  and  temperative  fields  are  to  be  simulated.  The  terrain  grid 

is  blocked  in  as  a matrix  of  dimension  ILL  by  JLL  (40-by-40  in  SWUS,  51-by-31 
in  Europe).  If  one  wishes  to  simulate  the  wind  only  in  the  left  half  of 
this  matrix,  one  would  set  ILE  = 20,  ILW  = 1,  JLN  = 40,  JLS  = 1.  The  default 
and  recommended  values  are  ILE  = ILL,  ILW  = 1 , JLN  = JLL,  JLS  = 1. 

The  flag  MTRBLK  may  be  used  to  specify  which  set  of  micro  terrain  and 
roughness  data  (from  file  SWUS*MRCTRF.  or  EUR0*MRCTRF. ) is  to  be  used.  The 
micro  terrain  file  contains  a header  in  block  1,  followed  by  pairs  of  blocks 
containing  terrain  and  roughness  data.  For  example,  to  use  the  fifth  pair, 
set  MTRBLK  = 5.  The  alternative  method  is  to  set  MTRBLK  = 0,  in  which  case 
the  header  is  searched  for  a block  of  terrain  with  southwest  corner  within 
10  kilometers  of  location  (XPLACE,  YPLACE)  (see  below).  If  no  such  terrain 
is  found,  execution  of  WINDEX  is  suppressed. 

NTST  is  used  by  routine  DRIVRS  to  determine  whether  WINDEX  should  be 
executed.  If  NTST  = 0,  a search  is  made  to  see  if  the  driving  parameters  of 
a previously  archived  run  match  the  present  parameters.  If  a match  is  found, 

A-6 


1 


execution  of  WINDEX  is  suppressed.  If  NTST  = 1 , no  search  is  made;  WINDEX  is 
executed  and  its  output  is  archived. 


/TIMPLA/  sets  flags  held  in  common  block  /COORD/.  These  flags  are 
XPLACE,  YPLACE,  ZPLACE,  YEAR.  MONTH,  DAY,  HOUR.  MINUTE.  XPLACE,  YPLACE  are 
the  UTM  coordinate  of  the  southwest  corner  of  the  simulation  site.  ZPLACE 
is  the  elevation  in  meters  of  the  site.  If  ZPLACE  = 0.0,  the  program  will 
determine  a default  value.  ZPLACE  = 0.0  is  recotmiended.  XPLACE,  YPLACE  are 
used  to  locate  the  terrain  block  to  be  used.  After  the  terrain  block  is 
found,  XPLACE  and  YPLACE  are  redefined  to  agree  with  the  actual  coordinates 
of  the  southwest  corner  of  the  block  found.  YEAR,  MONTH,  DAY,  and  HOUR  are 
integer  variables  which  refer  to  the  local  time  at  which  the  simulation  is  to 
take  place.  MINUTE  is  not  used. 


It  is  possible  to  run  the  model  independently  of  meteorological  data 
bases  by  supplying  the  mesoscale  driving  parameters  as  input.  The  additional 
input  is  read  from  namelist  /MFLA6S/,  consisting  of  the  following  variables: 


TPRO(l),  TPR0(2),  TPR0(3) 
ZPRO(l),  ZPR0(2),  ZPR0(3) 
DELQ 

GENWND(l) 

GENWND(2) 

NUMOBS 


850,700,500  mb  potential  temperature  profile 
850,700,500  mb  height  profile 
surface  heating 

easterly  component  of  mesoscale  wind 
westerly  component  of  mesoscale  wind 
number  of  spot  observations 


If  NUMOBS  is  nonzero,  then  the  input  namelist  /MFLAGS/  must  be 
followed  by  NUMOBS  lines  of  data,  formatted  15,  15,  F10.2,  F10.2,  F10.2.  The 
data  from  line  I sets  the  following  variables: 
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KINOX(I),  LINDX(I) 

grid  indices  of  spot  observation  I 

LIW(I) 

u component  of  wind 

VW(I) 

V component  of  wind 

THETA0(I) 

- potential  temperature 

Table  A.l  summarizes  information  about  input  variables  and  defaults.  Defaults 
are  applied  whenever  an  input  value  lies  outside  the  range  of  the  variable. 

If  no  range  is  specified,  no  default  is  given. 

PLOTTING  PROGRAM  — INPUTS 

The  utility  plotting  program  may  be  used  to  produce  plots  of  wind, 
temperature,  and  terrain  fields.  A description  of  input  variables  is  given 
in  M.USERGUIDE.  Additional  comments  follow. 

The  plotting  program  is  designed  to  plot  data  which  has  been  archived 
in  either  the  micro  terrain  file  or  the  surface  wind  and  temperature  file. 
Flexibility  in  the  plotting  routine  is  achieved  via  input  flags.  The  data 
to  be  plotted  is  specified  by  setting  the  flags  WATFIL,  ISTASH,  and  ITYPE. 
WATFIL  should  be  16  for  terrain  plots  and  17  for  wind  and  temperature  plots. 
ISTASH  specifies  the  pair  or  triple  of  blocks  to  be  used  (the  program  computes 
the  proper  block  number  depending  on  values  of  WATFIL,  ISTASH,  and  ITYPE). 
ITYPE  specifies  the  type  of  plot: 

ITYPE  “ 1 contour  plot  of  terrain 

ITYPE  » 2 contour  plot  of  temperature 


I 
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TABLE  A.l 


NAMELIST: 

/XFLAGS/ 

VARIABLE 

nPE 

RANGE 

DEFAULT 

CDMIENT 

FUNCTN 

INTEGER 

• 2 for  wind  model 

TASK 

INTEGER 

• 2 for  wind  model 

JOB 

INTEGER 

• 0 for  wind  model 

BLOCK 

INTEGER 

not  used 

FILE 

INTEGER 

not  used 

PRINT 

INTEGER 

not  used 

LEVEL 

INTEGER 

not  used 

NAMELIST: 

/FLAGS/ 

VARIABLE 

nPE 

RANGE 

DEFAULT 

C0f*1ENT 

IDAT(l) 

INTEGER 

0-1 

0 

UA  access 

IDAT(2) 

INTEGER 

0-1 

0 

SS  access 

IOAT(3) 

INTEGER 

0-1 

0 

GWC  access 

IDAT(4) 

INTEGER 

0-1 

1 

mesomodel  access 

IDAT(S) 

INTEGER 

0-1 

1 

mesonet  access 

I0AT(6) 

INTEGER 

0-1 

1 

mnual  input 

IMOT(I) 

INTEGER 

0-1 

0 

UA  interpolation 

IMOT(2) 

INHGER 

0-3 

2 

Surface  data  time  constraint 

IMOT(3) 

INTEGER 

not  used 

IM0T(4) 

INTEGER 

1-1S0 

8 

mesomodel  block  # 

IMOT{5) 

INTEGER 

not  used 

IMDT(6) 

INTEGER 

not  used 

lUSTR 

INTEGER 

0-1 

1 

last  run  flag 

NTST 

INTEGER 

0-1 

0 

archiving  required  flag 

I FLUX 

INTEGER 

2 or  4 

2 

1 of  flux  boxes 

IHIERC 

INTEGER 

0-2 

0 

model  complexity 

MTRBLK 

INTEGER 

0-* 

0 

micro  terrain  run  # 

I RELAX 

INTEGER 

1-100 

5 

# of  relaxation  sweeps 

ILE 

INTEGER 

1-ILL 

ILL 

grid  index  limit 

ILU 

INTEGER 

1-ICC 

1 

grid  index  limit 

JLN 

INTEGER 

1-OLL 

JLL 

grid  index  limit 

JLS 

INTEGER 

1-OCC 

1 

grid  index  limit 
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TABLE  A.l  (continued) 


NMCLIST: 

/TIMPLA/ 

VARIABLE 

TYPE 

RANGE  DEFAULT 

COteCNT 

XPUCE 

REAL 

UTM  X-coordlnate  (km) 

YPLACE 

REAL 

UTM  Y-coordInate  (km) 

ZPLACE 

REAL 

DEFAULTED  IF  INPUT 
AS  0.0 

elevation  (m) 

YEAR 

INTEGER 

should  be  1974 

MONTH 

INTEGER 

1-12 

local  month 

DAY 

INTEGER 

1-31 

local  day 

HOUR 

INTEGER 

0-24 

local  hour 

MINUTE 

INTEGER 

0-60 

not  used 

NAMELIST: 

/MFLA6S/ 

VARIABLE 

TYPE 

RANGE  DEFAULT 

COMMENT 

TPROd) 

REAL 

8S0  MB  potential  temperature 

TPRO(2) 

REAL 

700  MB  potential  temperature 

TPRO(3) 

REAL 

500  MB  potential  temperature 

ZPROd) 

REAL 

850  MB  elevation 

ZPRO(2) 

REAL 

700  MB  elevation 

ZPROO) 

REAL 

500  MB  elevation 

OELQ 

REAL 

surface  heating 

SEmMO(1) 

REAL 

mesoscale  u-wind 

GENHNO(Z) 

REAL 

mesoscale  v-wind 

ITYPE  = 3 streamlines  of  windfield  with  speed  contours 

overlaid 

ITYPE  = 4 vector  plot  of  windfield  with  scaled  magnitudes 

ITYPE  = 5 projective  view  of  terrain  relief 

The  block  size  of  the  data  is  given  by  ILL,  JLL;  set  ILL  = 40,  JLL  = 40  for 
the  S.W.  U.S.,  and  ILL  = 51,  JLL  = 31,  for  Europe. 

The  values  of  ILE,  ILW,  JLN,  JLS  should  be  the  same  as  those  used  in 
creating  the  wind  and  temperature  output  for  plots  of  such  data;  for  plots  of 
terrain,  they  may  be  set  to  limit  the  region  which  is  to  be  plotted  (see  the 
description  of  these  variables  in  /FLAGS/). 

NUMUP  is  used  to  stack  plots  vertically.  If  12  inch  paper  is  used 
on  the  plotter,  NUMUP  should  be  1;  for  24  inch  paper,  NUMUP  may  be  2 if  PLH 
is  not  more  than  9.0;  for  36  inch  paper,  NUMUP  may  be  3 if  PLH  is  not  more 
than  9.0  and  may  be  2 if  PLH  is  not  more  than  14.0. 

PLH  is  the  height  in  inches  of  the  vertical  axis. 

SAMPLE  is  used  for  plotting  a sampling  of  the  data.  If  SAMPLE  = 1, 
the  full  array  is  plotted.  If  SAMPLE  = 2,  a sampled  array  is  plotted. 

SAMPLE  = 2 is  recommended  for  ITYPE  = 4 plots  if  PLH  is  less  than  15.0. 

WATPEN  determines  the  plotter  pen  color.  Changing  the  color  is  de- 
sirable for  overlaid  plots.  The  code  is  1 = black,  2 = red,  3 = blue.  Recom- 
mended values  are  WATPEN  = 1 for  contour  plots,  * 3 for  windfield  streamlines 
or  vector  plots.  Titles  are  plotted  in  red. 

OVRLAY  is  the  overlay  flag.  If  OVRLAY  = 0,  the  plotter  is  advanced  to 
a new  region  for  the  plot.  If  OVRLAY  » 1,  the  plot  is  laid  over  the  previous 
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plot.  ITYPE  = 4 plots  followed  by  ITYPE  = 1 with  OVRLAY  = 1 plots  are  especially 
recoimended. 

NCON  is  the  number  of  contours  to  be  drawn  for  contour  plots.  The 
following  values  are  recommended: 

NCON  = 12  for  ITYPE  = 1 or  2; 

NCON  = 0 or  •:  for  ITYPE  = 3. 

(NCON  = 0 is  permissible  only  for  ITYPE  = 3) 

TEXT  is  a character  array  used  for  plotting  titles.  It  is  always 
program-determined  at  present. 

ISTOP  is  a stopping  flag  whose  use  is  optional.  If  ISTOP  = 1 , no  plot 
is  produced  and  the  program  terminates.  If  ISTOP  = 0,  inpjt  is  read  for  another 
run;  but  if  the  end  of  the  input  file  is  reached,  the  program  stops  rally 
without  error. 

TERRAIN  CREATING  PROGRAMS  — INPUTS 

The  terrain  creating  program  for  the  SWUS  is  designed  to  create  40-by- 
40  blocks  of  terrain  and  roughness  data  for  output  to  file  SWUS*MRCTRF.  The 
input  source  of  terrain  data  is  file  NI*13-10E.  which  contains  80-by-80  blocks 
of  terrain  with  grid  spacing  approximately  63.5  meters  (each  block  represents 
a region  approximately  5.08  km  square).  The  80-by-80  blocks  are  aligned  with 
the  (1,1)  point  in  the  southwest  corner,  and  with  increasing  values  of  the 
first  coordinate  corresponding  to  points  farther  to  the  north.  File  NI  * 13  - 
lOE.  contains  over  400  such  blocks.  The  terrain  creating  program  reads  inputs 
in  namelist  format  from  XINFIL.  The  namelist  is  /INPUT/,  containing  the 
variables  UTMX,  UTMY,  NSQRX,  NSQRY,  IQUAO,  and  ISTOP.  The  program  searches 
the  header  of  file  NI*13-10E.  for  a block  with  southwest  corner  within  14.5  km 
of  UTMX,  UTMY.  If  such  a block  B is  found,  then  the  region  consisting  of 


NSQRX-by-NSQRY  of  the  80'by-80  blocks  (with  block  B in  the  southwest  corner)  j 

is  filtered  to  produce  the  40-by-40  output  block.  The  output  block  is 

aligned  with  the  (1,1)  point  in  the  southwest  corner,  and  with  increasing  | 

values  of  the  first  cooruinate  corresponding  to  points  farther  to  the  east.  ! 

Portions  of  the  40-by-40  output  block  may  contain  irrelevant  data;  for  j 

instance,  if  NSQRX  = 1 and  NSQRY  = 2,  only  the  data  is  columns  1 through  20  i 

is  relevant.  If  NSQRX  = 1,  NSQRY  = 1,  and  IQUAD  is  nonzero,  a forty-by- 
forty quadrant  will  be  chosen  from  the  80-by-80  input  block  B.  The  quadrant 

chosen  is  determined  by  the  value  of  IQUAD:  ' i 

1 

j 

southwest  quadrant 
southeast  quadrant 
northeast  quadrant 
northwest  quadrant 

The  program  reads  input  from  /INPUT/,  creates  output  blocks,  and  repeats, 
until  the  end  of  the  input  file  is  reached  or  a value  ISTOP  = 1 is  read. 

The  program  for  creating  terrain  in  Europe  is  much  simpler.  The  existing 
data  base  is  a single  lOl-by-51  block  near  Fulda,  Germany  with  southwest  corner 
at  UTM  coordinates  (552.4  km,  5592.665  km),  grid  spacing  100  m.,  and  oriented 
at  an  angle  of  + .89982  radians  with  respect  to  west-east.  The  program  accepts 
as  inputs  from  namelist  /INPUT/  the  variables  UTMX,  UTMY,  and  ISTOP.  If 
possible,  a 51-by31  block  is  output  with  southwest  corner  within  75  m of 
UTMX,  UTMY,  grid  spacing  100  m,  and  aligned  with  the  input  block.  If  no  such 
block  fits  within  the  input  block,  a message  to  that  effect  is  printed.  Input 
is  read  till  the  end  of  the  data  is  found  or  a value  of  ISTOP  * 1 is  read. 

EXECUTING  ABSOLUTE  ELEMENTS 

Long  runs  of  the  surface  wind  model  should  be  run  batch.  This  may  be 
easily  done  from  a demand  terminal  by  executing  the  following  control  state- 
ments: 


IQUAD  = 1 
IQUAD  = 2 
IQUAD  = 3 
IQUAD  = 4 


A-13 


9 USE  M. , MRC*EPAMS. 

0 ASG,  AZ  M. 

9 ADD  M.BATCHINP 

At  this  point,  the  user  will  be  in  the  Ed  processor  with  a listing  of  the 
input  file  XINFIL.  displayed  on  the  terminal.  After  editing  the  input  file 
as  desired,  enter 

0 ADD  M.GOBATCH 

0 START, /R  M.  BATCH,,  [RUNID],  [PAN],,  [TIMEST],  [PAGEST] 

this  initiates  the  batch  run. 

A similar  procedure  (described  in  element  M.USFRGUIDE)  may  be  used 
to  execute  the  plot  program  in  batch  mode. 

Creating  and  executing  of  all  FORTRAN  programs  in  Tiles  M.  and  MT. 
has  been  done  with  the  aid  of  elements  containing  job  control  language  state- 
ments or  sample  input  data.  JCL  elements  may  be  used  to  compile  all  routines 
used  in  a program,  map  relocatable  elements  into  an  absolute  element,  or 
assign  files.  Table  A. 2 summarizes  the  use  of  these  special  elements. 
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APPENDIX  B GRIDING  AND  CONSTRAINT  CALCULATION  ALGORITHMS  , 

I 

The  computational  volume  of  the  surface  layer  analysis  consists  of  ' ! 

the  layer  between  the  user  selected  computation  height  and  the  terrain  surface.  j 

In  order  to  evaluate  the  integrals  of  the  model  equations  (II.ll)  the  computational  ' j 
volume  is  divided  by  the  griding  scheme  into  local  flux  boxes  (volume  elements)  | 

as  shown  in  Figure  B.l.  Each  of  these  flux  boxes  has  the  same  constant  thick-  | 

ness,  the  specified  computation  height,  measured  normal  to  the  terrain  sur-  ^ 

face.  The  surface  layer  wind  components  and  the  potential  temperature,  both  j 

at  the  computation  height,  are  the  fundamental  field  quantities  carried  by  1 

the  calculation.  We  describe  the  algorithm  for  computing  the  contribution  of  i 

an  arbitrary  flux  box  to  each  of  the  two  integrals  of  the  model  equations. 

Since  the  typical  surface  normal  dimension  of  a flux  box  ('\-  10m)  is  an  order 
of  magnitude  less  than  the  typical  lateral  dimension  100m),  surface  normal 
resolution  is  greater  than  surface  parallel  resolution,  a feature  augmented 
still  more  by  exploiting  known  functional  forms  (the  empirical  profiles)  for 
variations  in  the  surface  normal  direction.  Integrations  in  the  surface  normal 
direction  can  be  performed  analytically.  Consequently  the  basic  algorithm 
for  a single  flux  box  can  be  described  as  a finite  element  method  in  the  surface 
normal  direction  and  a finite  difference  method  (in  flux  form)  for  the  lateral 
directions.  The  volume  elements  are  not  rectangular,  but  warped  to  follow 
the  terrain  surface.  The  profile  of  their  projection  on  the  horizontal 
reference  plane  is,  however,  a square. 

Figure  B.l  also  displays  the  basic  grid  scheme.  Terrain  elevations 
form  a square  grid  oriented  parallel  to  UTM  grid  north  and  east.  Wind  components 
and  potential  temperature  are  calculated  on  a staggered  grid  with  points  centered 
between  adjacent  terrain  elevations.  This  arrangement  permits  accurate  calcu- 
lation of  terrain  slopes  in  each  of  two  mutually  perpendicular  horizontal 

directions  at  every  point  of  the  wind  grid.  Internally  the  calculation  uses 
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the  indicated  wind  components  v and  v , rotated  45  degrees  counter  clockwise 
with  respect  to  grid  east  and  north.  In  this  rotated  coordinate  system  the  basis 
vectors  of  the  terrain  following  coordinate  system  of  Section  II. 4. 2 are  defined 
at  the  locations  of  all  wind  vectors.  : 


In  the  following  we  derive  the  contribution  of  a single  flux  box 
to  the  constraint  and  to  the  temperature  flux  divergence  integrals.  The  cor- 
respondence between  local  indexing  and  the  global  indexing  of  the  simulation 
grid  is  described  subsequently. 

B.l  Flux  Box  Contributions 


The  definition  sketch  of  Figure  B.2  shows  a single  flux  box  oriented 
parallel  to  the  flux  box  of  Figure  B.l.  For  clarity  the  terrain  distortion 
is  not  shown,  but  it  must  be  born  in  mind  that  each  lateral  face  is  a plane 
perpendicular  to  the  local  terrain  surface.  For  reference  the  lateral  faces 
are  numbe»*ed  counterclockwise  1,  2,  3,  4 and  the  numbers  5 and  6 denote 
respectively  top  and  bottom  faces  which  are  parallel  to  the  average  local  terr 
rain  surface.  This  orientation  dependent  notation  is  used  generally  to  keep 
track  of  similarly  oriented  quantities. 

B.1.1  Dynamic  Constraint  Integral 

The  average  advective  acceleration  within  a sublayer  of  thickness  A5 
can  be  approximated  in  terms  of  the  velocity  flux  out  the  faces  of  the  layer. 

(W-AS)^ 

The  denominator  is  the  volume  of  the  thin  sublayer  where  d is  the  horizontal 
box  dimension  (equal  to  /T  times  the  basic  grid  spacing)  and  the  factor 
accounts  for  the  effect  of  the  average  terrain  slope.  Evaluation  of  the  terms 
in  the  sum  requires  use  of  the  methods  and  notation  of  the  warped  terrain 
following  coordinate  system  described  in  Section  II. 4. 2.  The  index  k denotes 
the  faces  of  the  thin  sublayer. 

The  velocity  flux  dyadic  Tv  is  the  direct  product  of  the  velocity 
with  itself.  If  V ■ v^a^  + v^a2  + 


B-3 


} 


i 


I 
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i.j  = 1.  2,  3 

The  vector  element  of  surface  area  aS  Is  in  the  outward  ..ormal  direction 
of  each  face.  On  the  top  and  bottom  faces  this  is  the  direction  of  and 
- respectively.  On  a lateral  face  this  direction  is  parallel  to  the  surface 
and  perpendicular  to  the  surface  parallel  vector  in  the  plane  of  the  face. 

For  example,  consider  face  number  1.  A?,  = a a \ since  the  reciprocal  vector 
a is  parallel  to  the  slope  and  perpendicular  to  a2  which  is  in  the  plane  of 
the  face.  The  constant  of  proportionality  a is  determined  from  the  magnitude 
of  the  area, 

AC  d ( 1 + h^)^  = a i [{1  + h^)^  + h^  h^  + h^]'^ 

where  we  use  the  definitions  of  the  reciprocal  vector,  h^j  and  h2  denote  ter- 
rain slopes  in  the  1 and  2 directions  respectively.  Therefore, 

= ACd  (*'a~  a^i 

where  the  subscript  1 means  that  all  terrain  dependent  quantities  in  the 
preceding  parenthesis  are  evaluated  at  the  center  of  face  1.  A similar 
calculation  for  the  other  faces  gives  the  vector  elements  of  surface  area 
on  all  faces. 


“^1 

= ACd 

A$2 

= ACd 

(v^a2)2 

A-?3 

-ACd 

(vS-  a^3 

— ACd 

A?5 

.d2, 

33)5 

A?6 

. -d2 

(vT'  83)5 
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On  faces  5 and  6 quantities  must  be  evaluated  using  average  values  for  the 
flux  box. 

The  scalar  products  of  the  surface  elements  with  the  velocity  flux 
summed  over  all  faces  of  the  sublayer  give  the  result: 


Mo  = 


’ I 

d /a  I 


^ ,/a~  a,  + v^v^  /T'  a»  + v^v^  S. 


V V 


/rt  * vS^  /a"  a,  + v\^  /r  S 


.2.  2 


3.  2 


1 1 


V V a^  + v^v^  /a~  £>2  V^v'  /r~  3^ 


3 1 


3 (B.l) 


v^v^  /eT  ti  + v^v^  y'a~  ^2  * ^ *3 


*1 


1 


AC 


v\^  vT"  a,  + v^v'^  /a~  a,  + 3 


.2  .3 


3..3 


_d 

AC 


^•■3  /a”  a,  + v^v^  /a”  a,  + v^v^  3. 


V V 


The  condition  of  mass  conservation,  ^ (v  • A?)|^  = 0,  similarly 
approximated  in  flux  form  for  the  sublayer,  g*fves  the  result, 

(v^  /a“)5  - (v^  v^)g  = [(v''  + (v^  /r)2  - (v’  v^)3  - (v^  /r)J=  ^ 

where  the  abbreviated  notation  w denotes  the  negative  of  the  quantity  in  square 
brackets.  Since  slope  dependent  quantities  are  the  same  for  faces  5 and  6 
(invariance  of  the  coordinate  system  in  the  normal  direction  is  assumed)  and 
slope  parallel  velocity  components  differ  little  across  the  thin  sublayer  we 


r 


use  the  divergence  condition  to  combine  the  last  two  terms  of  Equation  (B.l). 

'i 

On  faces  1 through  4 terms  of  Equation  (B.l)  in  v are  of  order  (Cj./d)  < 0.1 
with  respect  to  other  terms,  a fact  also  deducible  from  the  divergence  condition. 
Dropping  terms  of  this  order  throughout,  the  average  acceleration  at  a height 
C in  the  flux  box  depends  only  upon  the  surface  parallel  components  of  velocity 
at  that  height.  A further  step  is  now  to  express  the  basis  vectors  a-j  and 
^2  in  terms  of  Cartesian  components  so  terms  may  be  combined. 

^ |(v^’  /a")^  + (v’v^  ^)2  - (v’v’  ^)3  - (v’v^  /T)^  + (v’w  ./Tlsj 
j(v^^  /T)^  + (v^^  ^)2  - - (v^^  ^4  + (v^w  /Dg) 


- i/T  {v\’h^  + v''v'h2)]3  - (v'vS,  + vS^h2)]4 


2 1 


1.2, 


.2.2, 


1 2 I 

+ w (v  h.|  + V h2)]5j 


(B.2) 


The  quantity  of  interest  is  the  square  of  the  acceleration  integrated 
over  the  volume  of  the  flux  box.  Squaring  the  above  produces  many  terms, 
all  of  which  are  of  fourth  power  in  the  velocity  components.  If  all  velocity 
components  obey  the  power  law  profile.  Equation  (II. 7),  a typical  term  in  the 
integral  involves  the  surface  normal  integral  of  the  fourth  power  of  velocity 
components , 

5, 


/ 


where  v^  denotes  the  velocity  component  at  the  computational  level  which 
is  carried  by  the  calculation.  Consequently  the  appropriate  profile  averaging 
of  root  mean  square  acceleration  in  the  flux  box  is  achieved  by  replacing  all 
velocities  in  Equation  (B.2)  by  their  values  at  the  computational  level  and 
by  dividing  all  terms  quadratic  in  velocity  components  by  /4n+i  where  n is 

the  exponent  of  the  local  power  law  profile. 
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(B.3) 


t =-?r- 

^rms  dTT 


(vj  vj  /T  / 


J ) 

I / 

/s  1 

* '"c  V "l 


♦ [>^  \ (*C  "l 


/4n+1  + ( )2  + •••! 

/4n+l  + { ^2  I 

+ v^v^h2)  / /4n+l  + ••• 

+ v^v^h2)  / /4n+l  ]g j 


The  square  of  this  quantity  multiplied  by  the  flux  box  volume  provides  the 
estimate  of  the  acceleration  squared  integrated  over  the  flux  box  volume  which 
takes  into  account  the  surface  normal  resolution  provided  by  the  power  law 
profiles.  Averages  of  values  of  both  slopes  and  wind  components  at  faces 
1,  2,  3,  4 are  used  to  evaluate  the  term  with  subscript  5. 


A less  elaborate  method  of  averaging  is  used  for  the  buoyancy  term. 

The  average  buoyance  in  the  flux  box  is  an  average  over  the  four  lateral 
faces  of  the  average  buoyancy  on  each  face.  The  average  buoyance  on  each  face 
is  determined  from  the  average  temperature,  where  the  average  temperature 
<0>  on  a face  is, 

<0>  = 0(.  ■ }2  ^ )c 


a formula  which  uses  the  linear  temperature  gradient,  Equation  (II. 10).  The 
average  buoyancy  acceleration  on  each  face  of  the  flux  box. 


<0>  - 0O 

0O 


g k 


is  a vertical  vector.  The  average  <f>  over  the  four  lateral  faces  is  used 
as  the  buoyancy  acceleration  throughout  the  flux  box. 


A fully  three  dimensional  form  of  the  contribution  of  each  flux  box 
to  the  constraint  integral  could  be  approximated  as. 


rms 
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where  the  leading  factors  are  the  flux  box  volume.  However  according  to 
Section  II. 4.1  and  Equation  (II. 11)  only  surface  parallel  buoyancy  is  used. 
This  is  obtained  by  subtracting  out  the  surface  normal  component, 

* <5>  - a^  (<ff>  • 83) 

A 

a manipulation  easily  performed  by  expressing  in  Cartesian  components. 

Consequently  the  numerical  approximation  for  the  local  contribution 
of  a flux  box  to  the  dynamic  constraint  integral,  Equation  (II. 11),  is: 

Sc  n]^  (B-"' 


These  formulas  are  evaluated  in  the  program  segment  ACCSQL  which  returns 
a quantity  proportional  to  Equation  (B.4),  as  well  as  the  normal  component 
of  acceleration.  To  avoid  repeated  multiplication  by  constant  factors  ACCSQL 
includes  in  the  acceleration  calculation  only  the  factors  enclosed  by  curly 
brackets  in  Equation  (B.3),  with  appropriate  modifications  of  the  buoyancy 
term. 


B.1.2  Temperature  Flux  Integral 

Since  the  surface  normal  resolution  of  temperature  is  coarser  than  the 
resolution  of  wind  shear,  and  since  model  use  of  temperature  is  less  precise 
than  the  treatment  of  dynamic  quantities,  the  computation  of  temperature  flux 
divergence  does  not  divide  a flux  box  into  sublayers.  A number  proportional 
to  the  local  contribution  to  the  advective  consistency  integral.  Equation  (II. 11), 
is  approximated  as. 


(v0*A?), 


where  the  index  k runs  over  the  all  box  faces  except  the  bottom 
and' each  term  in  the  sum  is  evaluated  for  average  values  on  the 


(v  = 0 there) 
face. 
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Using  the  formulas  and  notation  derived  in  the  preceding  section  to 
perform  the  scalar  multiplication  the  sum  becomes, 

‘ 1^>1  v^Q)  j 

+ d^  (/a"  v^O)^ 

where  the  underlined  quantities  denote  averages  over  a box  face.  The  average 
surface  normal  velocity  on  the  top  face  of  the  box  is  given  by  the  continuity 
condition. 

(/r  v3)5  =-|s-  [(/t  - (/r  vbj  - (-^  1^)4] 

If  we  denote  the  average  temperature  on  the  top  face  by  <Q^>t  the  average  of 
computational  level  temperatures  at  the  four  sides  of  the  box,  the  temperature 
divergence  sum  requires  only  four  terms. 

= c^d  } [/r  (vie  - v’  <0^>)]i  + [•••la  [•••Is  [•••]4| 

The  averages  over  the  lateral  box  faces  are  computed  in  terms  of  compu- 
tational level  quantities  using  the  profiles  of  wind  velocity  and  temperature. 
Equation  (1 1. 7).  The  power  law  wind  profile  gives  for  any  wind  component, 

V’  = vi/(n+l). 

Surface  normal  integration  of  the  product  of  the  wind  profile  and  the  tempera- 
ture profile  furnishes  the  formula, 

vie  = vj  0^/(n+l)  - vj  /(n+1)  (n+2), 

for  the  average  components  of  temperature  flux  on  the  lateral  faces. 
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The  program  segment  TPFLXL  employs  these  formulas  to  calculate  the 
sum  of  the  four  terms,  omitting  constant  multiplicative  factors.  This  sum 
squared  is  returned  as  a measure  of  the  square  of  the  temperature  flux 
divergence  in  the  local* flux  box. 


B.2  Griding  and  Indexing 


Figure  8.3  comprises  several  diagrams  to  illustrate  the  heirarchy 
of  indexing  used  in  the  grid  of  the  surface  layer  analysis. 

A section  of  the  global  simulation  grid,  shown  by  Figure  B.3.a,  dis- 
plays the  location  and  orientation  of  the  terrain  elevation  grid  and  the  grid 
of  temperature  and  wind  components.  The  same  indices  (i,  j)  are  used  for 
both  terrain  and  wind  grids,  but  corresponding  grid  points  are  staggered. 

Wind  grid  points  are  always  surrounded  by  points  of  terrain  elevations,  so 
the  terrain  grid  contains  one  more  point  in  each  direction  than  the  wind  grid. 
Choosing  the  basic  coordinate  directions  (1)  and  (2)  as  shown  enables  terrain 
slopes,  h.|  and  h2,  in  these  directions  to  be  most  accurately  determined  at 
each  point  of  the  wind  grid.  Each  point  of  the  wind  grid  (i,  j)  appears  on  a 
face  of  each  of  4 possible  flux  boxes,  which  are  also  indicated. 

The  flux  boxes  surrounding  a point  (i,  j)  are  indexed  by  numbers  1, 

2,  3,  4 with  the  orientation  shown  in  Figure  B.3.b.  A variable  NSET(*).  in- 
dexed by  these  box  indices,  determines  which  flux  boxes  are  used.  If  NSET  ® 1 
the  box  is  used,  if  NSET  = 0 the  box  is  not  used.  On  the  sides  and  corners 
of  the  grid  NSET  must  equal  zero  for  some  boxes  which  are  outside  the  grid. 
This  decision  is  made  by  the  program  element  STGDBX.  At  interior  points  of 
the  grid  all  four  boxes  may  be  used  or  only  the  two  boxes  most  nearly  upwind 
of  the  point  (i,  j).  Use  of  only  upwind  boxes  is  recommended  to  replicate 
advective  phenomena.  This  decision  is  made  in  the  program  element  WEIGHT 
according  to  the  user  set  flag  IFLUX.  The  box  index,  denoted  IPT  in  the 
routines  ACCSQL  and  TPFLXL,  determines  which  of  the  four  local  flux  boxes  are 
used. 


The  four  local  flux  boxes  together  embrace  a total  of  9 computational 
points,  including  the  point  (i , j) . A local  template  indexing  these  points  1 
through  9 ic  established  as  shown  in  Figure  B.3.c.  When  the  relaxation  calcu- 
lation reaches  the  grid  point  (i,  j),  required  physical  quantities  are  filled 
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(b)  Local  3ox  Indicas.  IPT 
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Figure  B.3.  Local  Griding  of  WINDEX 
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into  9-dimensional  arrays  stored  in  the  coitmon  block  LOCAL.  The  correspondence 
between  global  indices  (i,  j)  and  the  local  template  indices  is  established  by 
the  program  segment  LOCQUA  as  shown  by  the  table  of  Figure  B.3.C. 

The  analysis  for  a single  flux  box  described  in  the  preceding  section 
uses  a subscript  notation  1 through  4 to  denote  the  lateral  faces  of  the  flux 
box.  Internally  in  the  routines  ACCSQL  and  TPFLXL  these  indices  are  denoted 
by  the  mnemonic  symbols  II,  12,  13,  and  14.  These  symbols  are  actual  indices 
having  values  1 through  9 to  designate  positions  on  the  local  template.  The 
box  index  in  conjunction  with  the  box  face  designation  determines  the  template 
index  required  to  access  physical  variables  on  each  face.  This  correspondence 
is  shown  by  the  table  of  Figure  B.3.d,  which  is  implemented  by  means  of  a 
data  statement  in  the  routines  ACCSQL  and  TPFLXL. 
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APPENDIX  C 


ILLUSTRATIVE  ANALYSIS  RESULTS 

This  appendix  contains  a series  of  computer  generated  plots  illustrat- 
ing the  output  of  the  surface  wind  analysis  performed  by  EPAMS  for  nine  (9) 
cases:  three  (3)  for  a 3 km  by  5 km  area  near  Fulda,  Germany,  and  six  (6)  for 
10  km  by  10  km  areas  (Soledad  and  Bear  Canyons)  on  the  White  Sands  Missile 
Range  and  at  El  Paso,  Texas.  In  all  cases,  the  input  parameters  of  the  surface 
layer  analysis  were  obtained  by  automatic  processing  of  meteorological  data 
stored  in  the  EPAMS  data  base,  either  the  European  data  base  or  the  SW  United 
States  data  base,  as  appropriate. 

Each  figure  presents  one  analysis  and  consists  of  two  plots  and  a cap- 
tion. The  first  plot,  designated  (a),  shows  scaled  wind  vectors  overlaid  on 
terrain  contours,  with  contour  elevations  in  meters.  The  second  plot,  desig- 
nated (b),  shows  streaml ines of  wind  direction  and  isotachs  of  wind  speed  in 


meters/ second.  On  this  plot,  streamlines  are  drawn  to  obtain  approximate  uni- 
form coverage,  so  their  density  has  no  relation  to  the  wind  speed.  Stagnation 
points  are  designated  by  a small  box.  The  caption  of  each  figure  lists  the  in- 
put parameters  of  that  analysis. 

The  area  in  Germany  is  rolling  and  broken  with  forested  hill  tops  and 
cultivated  valleys.  The  maximum  difference  in  elevation  within  the  area  is 
130  meters.  In  this  area,  the  wind  analysis  uses  a horizontal  grid  interval 
of  100  meters  and  a computation  height  at  which  wind  is  estimated  of  6 meters. 

It  should  be  noted  that  Figures  C-1 , C-2,  and  C-3  which  pertain  to  this  area 

are  not  aligned  with  geographic  north  and  east. 

The  El  Paso  and  White  Sands  Missile  Range  areas  are  desert  mountains 
and  canyons  with  a maximum  elevation  difference  within  these  areas  as  large  as 
1300  meters.  The  wind  analyses  for  these  areas  use  a horizbntal  grid  interval 

of  254  meters  and  a computation  height  of  6 meters.  The  six  cases  for  these 

areas  are  presented  in  Figures  C-4,  C-5,  C-6,  C-7,  C-8,  and  C-9. 
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FIGURE  C-1 


Location:  near  Fulda,  Germany. 

Time:  1400  local  standard  time,  1 November  1974 

Input  Data  Source 

Surface  Heating  (AQ/Cp)  +4.255  K Surface  stations 

Wind  Direction  240  degrees  Closest  surface  station 

Wind  Speed  3.95  m/sec.  Geostrophic  analysis 

of  surface  data 

Profiles: 


Spatial  interpolation 
of  4 upper  air 
soundings  taken  one 
hour  previous  to  time 
of  analysis. 


A moderate  breeze  with  heating  of  surface  air  in  afternoon 
conditions. 
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Figure  C-la.  Terrain  Contours  and  Wind  Vectors 


FIGURE  C-2 
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FIGURE  C-3 


Location:  near  Fulda,  Germany 


Time:  0700  local  standard  time,  8 November  1974 


Input  Data 

Surface  Heating  (AQ/cp) 
Wind  Direction 
Wind  Speed 


-6.33  k 
140  degrees 
2.00  m/sec. 


Source 

Surface  stations 
Closest  surface  station 
Closest  surface  station 


Profiles: 


Pressure  (mb) 

850 

700 

500 


Height  (m,MSL) 

1553 

3087 

5638 


Pot.  Temp  (K) 

286.2 

293.9 

306.3 


Spatial  interpolation  of 
4 upper  air  soundings 
taken  at  time  of  analysis 


Drainage  flow  of  negatively  buoyant  surface  air  under  light  winds  in 
the  early  morning. 
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Figure  C-3b.  Streamlines  and  Isotachs 


FIGURE  C-4 


Location:  El  Paso,  Texas 


Time:  1400  local 

standard  time,  1 

November  1974 

Input  Oata 

Source 

Surface  Heating  (AQ/Cp) 

+2.7  K 

Surface  stations 

Wind  Direction 

230  degrees 

Closest  surface  station 
(HAFB) 

Wind  Speed 

3.0  m/sec. 

Closest  surface  station 
(HAFB) 

Profiles: 


Pressure  (mb) 

Height  (m,MSL) 

Pot.  Temp  (K) 

850 

1497 

302.7 

Single  sounding  9 

700 

3102 

309.2 

hours  previous  to  anal- 

500 

5786 

325.7 

ysis  time  updated  and 
extrapolated  by  GWC 
numerical  predictions. 

A light  general  wind  from  the  SW  in  conditions  of  upslope  flow  driven  by 
afternoon  surface  heating. 
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FIGURE  C-5 


Location:  El  Paso^  Texas 

Time:  1400  local  standard  time,  3 November  1974 


Input  Data 


Surface  Heating  (aQ/c^) 
Wind  Direction 


+3.9  K 
320  degrees 


Wind  Speed 


7.7  m/sec 


Source 


Surface  stations 

Closest  surface  station 
(Juarez) 

Closest  surface  station 
(Juarez) 


Profiles: 


Pressure  (mb) 


Height  (n.MSL)  Pot.  Temp  (K) 


850  1472 

700  3053 

500  5692 

and  extrapolated  by 
GWC  numerical  predic- 
tions 


20b. S Single  sounding  9 

302.8  hours  previous  to 

321.5  analysis  time  updated 


Strong  wind  from  the  NW  in  conditions  of  moderate  surface  heating  in  mid- 
afternoon. 
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DRIVING  WINDS:  VE=  4.9  VN=  -5.9 
BUOY  = 3.9  TER  « = 14  WND  « = 15 
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FIGURE  C-6 
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Location:  El  Paso,  Texas  | 

Time:  0400  local  standard  time,  5 November  1974  | 

Input  Data 

Surface  Heating  (AQ/Cp) 

Wind  Direction 

Wind  Speed 

Profiles: 


-9.9  K 
40  degrees 

3.6  m/sec. 


Source 

Surface  stations 

Closest  surface  station 
(El  Paso) 

Closest  surface  station 
(El  Paso) 


Pressure  (mb) 

Height  (m,MSL) 

Pot.  Temp  (K) 

850 

1538 

297.8 

Single  sounding  11 

700 

3099 

303.9 

hours  previous  to 

500 

5730 

319.5 

analysis  time  updated 
and  extrapolated  by 
GWC  numerical  predic- 
tions. 

Moderate  wind  from  NE  with  strong  negative  buoyancy  of  surface  air  in 
pre-dawn  hours. 


DRIVING  WINDS'  VE=  -2.3  VN=  -2.8 
BUOY  = -9.9  TER  « = 14  WND  « = 12 


FIGURE  C-7 


Location:  El  Paso,  Texas 


Time:  0400  local  standard  time,  2 November  1974 


Source 

-10.5  K Surface  stations 

N 35  degrees  Geostrophic  wind  model 
N 7 m/sec.  Geostrophic  wind  model 

Profiles: 


Input  Data 

Surface  Heating  (aQ/c^) 
Mind  Direction 
Wind  Speed 


Pressure  (mb)  Height  (m.fISL)  Pot.  Temp  (K) 


850 

1477 

302.7 

Single  sounding  11  hours 

700 

3099 

307.4 

previous  to  analysis  time 

500 

5762 

321.  G 

updated  and  extrapolated 
by  GWC  numerical  predic- 
tions 

Strong  wind  from  NE  with  strong  negative  buoyancy  of  surface  air  in  pre- 
dawn hours. 
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DRIVING  WINDS:  VE=  -3.9  VN=  -5.8 
BUOY  =’-10.5  TER  « = 14  WND  « = 9 
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Figure  C-7a.  Terrain  Contours  and  Wind  Vectors. 
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Figure  C-7b.  Streamlines  and  Isotachs. 
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FIGURE  C-8 

Location:  Bear  Canyon,  WSMR 

Time:  1400  local  standard  time,  2 November  1974 

Input  Data  Source 

Surface  Heating  (aQ/c  ) +6.0  K Surface  stations 

P 

Wind  Direction  190  degrees  Closest  surface  station  (HAFB) 

Wind  Speed  5.1  m/sec.  Closest  surface  station  (HAFB) 

Profiles: 


Pressure  (mb) 

Height  (m,MSL) 

Pot.  Temp  (K) 

850 

1504 

300.0 

Single  sounding  9 hours 

700 

3109 

305.8 

previous  to  analysis  time 

500 

5767 

323.5 

updated  and  extrapolated 
by  GWC  numerical  predictions 

Moderate  wind  from  south  with  strong  afternoon  heating. 


FIGURE  C-9 


Location:  Soledad  Canyon,  WSMR 

Time:  1400  local  standard  time,  2 November  1974 


, Input  Data 


Surface  Heating  (^Q/Cp) 
Wind  Direction 
Wind  Speed 


Profiles: 


Source 

+6,0  K Surface  stations 

230  degrees  Closest  surface  station  (El  Paso) 

2.5  pi/sec.  Closest  surface  station  (El  Paso) 


i 

i 

Pressure  (mb) 

Height  (m,MSL) 

Pot.  Temp  (K) 

1 

850 

1504 

300.0 

Single  sounding  9 hours 

• 

700 

3109 

305.8 

previous  to  analysis  time 

i 

500 

5767 

323.5 

updated  and  extrapolated 

by  GWC  numerical  predic- 
tions 


Moderate  wind  from  SW  with  strong  afternoon  heating. 


DRIVING  WINDS:  VE=  1.9  VN=  1.6 
BUOT  = 6.0  TER  « = 10  WND  » = 6 
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Figure  C-9a.  Terrain  Contours  and  Wind  Vectors. 
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APPENDIX  D 


FORTRAN  LISTING  OF  COMPUTER  PROGRAMS 


This  appendix  contains  a complete  listing  of  all  program  elements  and 
source  routines,  with  the  exception  of  ASL  library  routines,  contained  In  the 
high  resolution  surface  wind  analysis  of  EPAMS.  For  ease  of  reference,  this 
appendix  Is  divided  Into  sections  and  subsections,  and  routines  are  listed  In 
alphabetical  order  of  their  names  within  a subsection.  Sections  D.1,  0.2,  0.3, 
and  0.4  list  the  contents  of  the  main  program  file,  MRC^EPAMS.  Sections  D.S, 
0.6,  and  0.7  list  the  contents  of  the  utility  program  file,  MRC*UTILITY. , used 
for  generating  blocks  of  terrain  data  and  plotting  output. 

Variables  which  occur  In  common  blocks  are  defined  In  the  procedure  ele- 
ment which  establishes  the  common  block.  Variables  which  are  used  locally  In 
single  subroutine,  or  which  are  transferred  between  subroutines  by  explicit 
calling  arguments,  are  defined  In  the  subroutine  In  which  they  occur. 


D.1  USERGUIOE 


Contained  within  MRC*EPAMS  is  the  element  M.USERGUIDE  which  may  be 
listed  to  obtain  a brief  description  of  the  surface  wind  analysis  and 
instructions  for  its  use.  Input  variables  and  control  flags  for  the  overall 
operation  of  the  wind  analysis  are  defined  in  this  element.  In  addition, 
control  flags  for  the  utility  plotting  routines  are  defined. 
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INTRODUCTION 


THE  MISSION  RESEARCH  CORPORATION  CMRC)  MICRO  UIND  MODEL  IS  A 
PHYSICALLY  BASED  NUMERICAL  MODEL  DESIGNED  TO  ESTIMATE  SURFACE 
UINDS  OVER  A LIMITED  AREA  TAKING  INTO  ACCOUNT  BOTH  PUGGED  TOPO- 
GRAPHY AND  THERMAL  STRUCTURE.  THIS  MODEL  TS  INCORPORATED  IN  A 
COMPUTER  PROGRAM  DELI'/ERED  TO  THE  WSMR  ATMOSPHERIC  SCIENCE  LAB 
(ASL).  THE  ASL  PROGRAM  PERFORMS  THREE  MAIN  FUNCTIONS: 

1.  ACCESS  OF  ASL  METEOROLOGICAL  AND  TOPOGRAPHICAL  DATA  BASES 

2.  ESTIMATION  OF  CESOSCALE  UIND  AND  TEMPERATURE  CONDITIONS 

3.  ESTIMATION  OF  SURFACE  UINDS  USING  THE  MRC  UIND  MODEL 
COMPLETE  DOCUMENTATION  OF  THE  MODEL  AND  COMPUTER  PROGRAM  MAY  BE 
FOUND  IN  THE  FINAL  REPORT  FOR  THIS  CONTRACT  (NO.  DAEA  IS-irr-C- 
0043).  THE  FOLLOUING  IS  A GUIDE  TO  RUNNING  TPfE  COMPUTER  PROGRAM 
ON  THE  USMR  UN  I VAC  1108  FACILITIES. 

MAIN  PROGRAM,  UTILITY,  AND  DATA  FILES. 

SOFTUAPE  CODE  AND  STRUCTURE  DELIVERED  TO  THE  ASL  CONSISTS  OF  A 
MAIN  PROGRAM  FILE  <MRC;*<EPAMS. ; HEREAFTER  REFERRED  TO  AS  M. ) , A 
UTILITY  PROGRAM  FILE  (MRC*UTIL ITY, ; HEREAFTER  REFERRED  TO  AS  MT.), 
AND  FOUR  DATA  FILES,  ALL  STORED  ON  UN  I VAC  1103  LIBRARY  TAPE. 

BOTH  PROGRAM  FILES  CONTAIN  THE  FOLLOUING  T'^PES  OF  ELEMENTS: 

FORTRAN  SOURCE,  RELOCATABLE,  ABSOLUTE,  JOB  CONTROL,  AND  SAMPLE 
INPUT  DATA.  M.  IS  USED  FOR  THE  CREATION  AND  EXECUTION  OF  THE 
SURFACE  UIND  MODEL,  UHILE  MT.  SUPPLIES  PLOTTING 
TERRAIN  FILTERING,  AND  FILE  MANAGEMENT  ROUTINES. 

THE  DATA  FILES  ARE: 

SUUS*MRCTRF. 

suusmr:*undarchive. 

EURO*MRC’'RF. 

EUROMRC*UMDf.?CHIVE. 

THE  DATA  FILES  CONTAIN  THE  MICRO  TERRAIN  INPUT  AND 
MICRO  UIND  OUTPUT  FOR  THE  SOUTHUEST  U.S.  AND  EUROPE. 

HOU  TO  RUN  THE  SURFACE  UIND  PROGRAM 

THE  FOLLOUING  STEPS  MAY  BE  TAKEN, USING  A DEMAND  TERMINAL,  TO 
E:'<ECUTE  THE  SURFACE  UIND  PROGRAM  IN  BATCH  MODE: 

1.  ASSIGN  M. 

2.  SET  UP  INPUT  FILE 

3.  EXECUTE 

1.  TO  ASSIGN  PROGRAM  FILE  M. , TrPE  IN 
OUSE  M.,MRC*ePAM3. 

9ASG,A2  M. 

IF  M.  IS  DECATALOGUED,  IT  MUST  BE  COPIED  IN  FROM  TAPE.  GET  HELP 
IF  NECESSARY. 

2.  ALL  INPUT  IS  READ  VIA  NAMELIST  FORMAT  FROM  FILE  XINFIL.. 
PRELIMINARY  PREPARATION  OF  THIS  FILE  MAY  BE  ACHIEVED  BY  TYPING  IN 

OADD  M. BATCH INP 

THIS  CREATES  THE  INPUT  FILE  AND  CALLS  THE  ED  PROCESSOR. 

THE  USER  MAY  THEN  EDIT  XINFIL.  AS  DESIRED. 
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PI  DESCRIPTION  OF  THE  INPUT  VARIABLES  FOLLOWS. 


NAMELIST  .'XFLAG3/  - THESE  FLAGS  ARE  USED  BY  THE  EPAMS  EXECUTIVE  TO 


CONTPOL  PROGRAM  FLOW.  TO  EXECUTE  THE  MRC  WIND 
MODEL.  FLAGS  SHOULD  BE  SET  AS  FOLLOWS: 


FUNCTION 

= 

TASK 

= 

JOB 

=• 

NArELIST  . FLAGS. '■ 

- 

THESE  FLAGS  CONTROL  THE  DATA  BASE  SEARCH  AND 
THE  MICRO  WIND  SIMULATION. 

IDAT(l) 

= 

0 

SEARCH  UPPER  AIR  DATA  INVENTORY 

IS 

I 

SKIP  UA  DATA 

IDAT(2) 

= 

0 

SEARCH  SURFACE  STATION  DATA  INVENTORY 

= 

1 

SKIP  ss  Data 

IDAT (3) 

= 

0 

SEARCH  GUC  DATA  INVENTOR'f' 

a 

1 

SKIP  GWC  DATA 

NO  GWC  DATA  EXISTS  FOR  .EUROPEAN  VERSION 

I DAT (4) 

= 

0 

USE  mesomodel  data 

1 

SKIP  mesomodel  data 

MESOMODEL  DATA  REOUirES  SPECIAL  HANDLING 

IDAT(5) 

= 

0 

USE  MESONET  DATA 

- 

1 

Si:  IP  MESONET  DATA 

MESONET  DATA  NOT  PPESENTL’.'  AVAILABLE 

IDAT  1 b'l 

= 

0 

USE  I'ANUAL  INPUT 

= 

1 

SKIP  MANUAL  INPUT 

inDTUi 

- 

UPPER  A IP  TIME  INTEFPOLATIGN  FLAG 

0 

SEEK  UA  OBSERVATION  JUST  FPECEDING 
SIMULATION  TIME 

1 

SEEK  TWO  UA  OBSERVATIONS  CLOSEST  TO 
SIMULATION  TIME  AND  LINEARLY  INTERPOLATE 

= 

1 

RECOMMENDED  FOP  EUROPEAN  VERSION 

IMDT(2) 

SURFACE  STATION  TIME  CRITERIA  FLAG. 

SS  DATA  LESS  T1*hN  OP  EQUAL  TO  IMDTi'2) 

HOURS  OLD  WILL  BE  SOUGHT. 

RECOMMENDED 

IMDT (3 : 

- 

GUC  FLAG  MIOT  UIED' 

IMDT. 4) 

MESOMODEL  DATA  FLAG 

MUST  BE  SET  EQUAL  TO  S' 

IMDT  1, 5'i 

- 

MESONET  FLAG  MIOT  'JSED' 

IMDTi'b) 

- 

MANUAL  INPUT  FLAG  MIOT  USEIO 

ILAS'R 

- 

MULTIPLE  PUN  FLAG 

0 

WNI'MGP  WILL  Cr^PPV  OUT  THIS  PUN  AND  THEN 

READ  flags  FOP  A SUBSEQUENT  PUN 

1 

WHDMGP  WILL  CARRY  OUT  THIS  PUN  AND  THEN 
RETUF'N  CONTPOL  TO  THE  EPAMS  EXECUTIVE 

a 

1 

PEOUIPED  FOP  SINGLE  P'.NS 

NTST 

■*" 

REOUIPED-APCHIVING  FLAG 

IF  = 1.  RESULTS  APE  APCHI'/ED  IF  A RIJN  IS  MADE 

IFLUX 

— 

NUMBER  OF  FLUX  BOIES  USED  IN  WINDEX 

MUST  BE  2 OR  4 

= 

RECOMMENDED 

0-3 


IHIERC 

- 

MODEL  COMPLEXITY  FLAG 

- 0 

DATA  BASES  ARE  SEARCHED.  MESOSCALE 

DRIV'ERS  ARE  ESTIMATED.  BUT  UINDEX  IS 

NOT  EXECUTED. 

- 1 

UINDEX  IS  EXECUTED.  UINDFIELDS  ARE 

RELAXED.  BUT  TEDPEPATUPE  FIELD  IS  FP<ED 

, 

a 2 

UIND  AND  TEIPEPATURE  FIELDS  ARE  RELAXED 

MTRBLK 

MICRO  TERRAIN  DATA  ACQUISITION  FLAG. 

IF  MTRBLK. LE.0.  THE  MICRO  TERRAIN 

HEADER  IS  SEARCHED  FOR  A BLOCK  OF  TERRAIN 
UITH  SOUTHUEST  CORNER  U I THIN  10  KM  OF 

XPLACE. YPLACE  (SEE  BELOU) . IF  MTRBLK. GT.0. 
THEN  MTRBLK  SPECIFIES  THE  ARCHIVE  NUMBER  OF 
THE  TERRAIN  DATA  TO  BE  IJSED;  : PLACE.  tPLACE 
APE  REDEFINED  TO  AGREE  UITH  THE  SOUTHUEST 

UTM  COORDINATES  OF  THE  ARCHIVED  TERRAIN  DATA 
USED. 

IRELAX 

NUMBER  OF  RELAXATION  PASSES  TO  BE  EXECUTED 

IN  UINDEX.  SHOULD  BE  GREATER  THAN  THE 
MAXIMUM  ARRAY  DIMENSION 

- 50 

RECOMMENDED 

ILE 

- 

EASTERNMOST  GRID  INDEX  LIMIT 

JLN 

- 

NORTHERNMOST  GRID  INDEX  LIMIT 

ILU 

- 

UESTERNMOST  GPJD  INDEX  LIMIT 

JL3 

- 

SOUTHERNMOST  GRID  INDEX  LIMIT 

THE  VARIABLES  ILE. JLN. ILU. JLS  MAY  BE 

USED  TO  RESTRICT  THE  REGION  OVER  UHICH 

THE  ANALYSIS  IS  PERFORMED.  MOSTLY 

FOR  USE  IN  DEBUGGING. 

RECOMMENDED:  ILE  - 40  SUUS  - 51  EUROPE 

JLN  ■ 40  SUUS  « 31  EUROPE 

ILU  • 1 

JLS  « 1 

.1ST  /TIMPLA/ 

- 

THESE  FLAGS  SPECIFY  THE  TIME  AND  PLACE  OF 

THE  MICRO  UIND  SIMULATION 

XPLACE 

“ 

UTM  X-COORDINATE  OF  SOUTHUEST  CORNER  OF 
SIMULATION  SITE  (KM) 

YPLACE 

UTM  Y-COORDINATE  OF  SOUTHUEST  CORNER  OF 
SIMULATION  SITE  (KM) 

XPLACE. (PLACE  DO  NOT  HAVE  TO  BE  SUPPLIED 

IF  MTRBLK. GT.O 

ZPLACE 

ELEVATION  OF  SITE 

SUPPLIED  BY  PROGRAM  IF  ENTERED  AS  0.0 

'I'EAR 

- 

LOCAL 

MONTH 

- 

TIME 

DAY 

- 

OF 

HOUR 

- 

SIMULATION 

MINUTE 

- 

NOT  USED 

THE  MODEL  MAY  BE  RUM  IMDEFEMDEMTLY  OF  THE  DATA  BASE  EEARCH  AND 
ANALYSIS  BY  MANUALLY  ENTERING  THE  DRIVING  UIND  AND  TEMPEPATLIRE 
DATA.  TO  PROPERLY  SET  UP  THE  INPUT  FILE.  TYPE  IN  THE  FOLLOUING: 
QADD  M. BATCH  IMP 
ADD  M.MAMINP 
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ftT  THIS  POINT,  XINFIL.  UILL  CONTAIN  THE  USUAL  NAMELISTS  PLUS  THE  ' 
NAMELIST  ^MFLAGS/".  ALL  VARIABLES  UILL  HAVE  STANDARD  VALUES.  THE 
USER  MAY  EDIT  THESE  AS  DESIRED.  THE  ADDITIONAL  FLAGS  IN  NAMELIST 
.MFLAGS/  ARE  DESCRIBED  BELOU: 


POTENTIAL 
TEMPERATLIRE 
PROFILE 

SURFACE  HEATING— APPROXIMATELY  THE  SAME 
NUMERICAL  VALUE  AS 

(SURFACE  TEMPERATURE) -(AMBIENT  TEMPERATURE) 
EASTERLY  COMPONENT  OF  MESOSCALE  UIND 
UESTERLY  COrfl’ONENT  OF  rESOSCALE  UIND 
NUMBER  OF  SPOT  OBSERVATIONS. 

IF  NUMOBS.GT.0.  SMFLAGS  INPUT  MUST  BE 
FOLLOWED  BY  NUMOBS  LINES  OF  INPUT,  FORMATTED 
15, I5,F10.2,F10.2.F10.2 
LINE  ♦ I GIVES  DATA  FOR  THE  FOLLOWING 
VARIABLES: 

LOCATION  INDICES  FOR 
SPOT  OBSERVATION  * I 

POTENTIAL  TEMPERATURE  OF  SPOT  OBSERVATION 

* I 

EASTERLY  UIND  COMPONENT  OF  SPOT  OBSERVATION 

* I 

NORTHERLY  UIND  COMPONENT  OF  SPOT  OBSERVATION 

* I 

3.  TO  EXECUTE,  TYPE  IN 
©ADD  M.GOBATCH/SUUS 

eSTART,/R  M.BATCH.,XXXXXX,S100. .CTIMEST3,CPAGEST] 

THE  ESTIMATED  UIND  AND  TEMPERATURE  FIELDS  UILL  BE  ARCHIVED  IN  FILE 
SUUSMRCkUNDARCHIVE  (OR  EUROMRC'-tdJNDARCHIVE) 

HOU  TO  GET  PLOTS 

BATCH  PLOT  JOBS  MAY  BE  SUBMITTED  FROM  DEMAND  TERMINALS  IN  A MANNER 
SIMILAR  TO  THE  ABOVE:  ASSIGN  MT.,  SET  UP  INPUT  FILE.  EXECUTE. 

1.  TO  ASSIGN  MT.,  TYPE  IN 

9USE  MT,.MRC*UTILITY. 

OASG.AZ  MT. 

2.  TO  SET  UP  THE  INPUT  FILE.  TYPE  IN 
OADD  MT.PBATCHINP 

THIS  UILL  CREATE  XINFIL,  WITH  STANDARD  VALUES  GIVEN  TO  THE 
NArELIST  INPUTS;  THE  ED  PROCESSOR  IS  CALLED;  THE  USER  MAY 
EDIT  THE  INPUT  FILE  AS  DESIRED.  INPUT  VARIABLES  ARE  DESCRIBED 
BELOU. 


NAMELIST  /"MFLAGS/ 
TPRO(  1) 

TPP0(2 

TPR0(3 

ZPRO(l) 

ZPR0(2) 

ZPRO(3) 

DELQ 


GENUID(l) 

GENUND(2) 

NUMOBS 


KINDX(I) 
LINDXC I) 
THETA0 ( I ) 

UW(I) 

VU(  I 


0-5 


NAMELIST  /OMFLOT/ 


I 

! 

I 


UhTFIL 


I STASH 

ILL 

JLL 


ILE 
ILU 
JLM 
JLS 
I TYPE 


NUMUP 

PLH 

SAMPLE 

UATPEH 


OVPLAY 


NCON 

TEXT 

ISTOP 


THESE  FLAGS  ARE  USED  BY  THE  PLOT  EXECUTIVE 
TO  CALL  AND  CONTROL  ASL  LIBRARY  PLOTTING 
ROJriNES 

NUMBER  OF  FILE  CONTAINING  DATA  TO  BE 
BLOCKED  IN 

= ir  MIND  OR  TEMPERATURE  PLOTS 
= 16  TERRAIN  PLOTS 

ARCHIVE  NUMBER  OF  DATA  TO  BE  PLOTTED. 

GRID  PARAMETER 
GRID  PARAMETER 
FOR  SLJUS.  SET  ILL  =40 
JLL  = 40 

FOR  EUROPE..  SET  ILL  = 51 
JLL  = 31 

GRID  INDEX  LIMITS. 

SHOULD  BE 
SAME  AS  VALUES 
USED  I.JITH  LUND  MODEL 
SPECIFIES  T.'PE  OF  PLOT  DESIRED 
= 1 CONTOUR  PLOT  OF  TERRAIN 
= 2 CONTOUR  PLOT  OF  TEMPERATURE 
= 3 STREAMLINES  OF  l.JINDFIELD  UITH  SPEED 
CONTOURS 

= 4 VECTOR  PLOT  OF  UINDFIELD  LUTH  SCALED 
MAGNITUDES 

= 5 THREE  DIMENSIONAL  PLOT  OF  TERRAIN 

NUMBER  OF  PLOTS  TO  BE  VERTICALLY'  STACKED 
= 1 RECOMMENDED 

HEIGHT  OF  PLOT  IN  INCHES 
= 25.0.-'NUMUP  15  MAXIMUM  ALLOWABLE 

FOR  PLOTTING  EVERY  OTHER  DATA  POINT 
= 1 PLOT  ALL  POINTS 
= 2 PLOT  EVERY'  OTHER  DATA  POINT 
= 2 RECOMMENDED  FOR  PLH  LESS  THAN  15.0 
PEN  COLOR 
= 1 BLACK 
= 2 RED 
= 3 BLUE 

= 1 RECOMMENDED  FOR  CONTOURS 
= 3 RECOMMENDED  FOR  STREAMLINES  OR  VECTORS 
O'v'EPLAY  FLAG 

= C PLOT  IS  NOT  O'v'ERLAID 
= 1 PLOT  IS  LAID  O'v'EP  PPE'.UOUS  PLOT 
= 1 RECOMMENDED  FOR  CONTOURS  FOLLOW IMG 
I TYPE =4  PLOTS. 

NUMBER  OF  CONTOURS  TO  BE  DRAWN 
» 8 DEFAULT  VALUE 

BCD  ARRAY  TO  BE  PLOTTED  AS  TITLE. 

ALWAYS  SUPPLIED  A DEFAULT  VALUE 
AT  PRESENT 

STOPPING  FLAG  USE  IS  OPTIONAL 
= I NO  PLOT  IS  EXECUTED.  PPOGPAM  HALTS 


3.  TO  EXECUTE  THE  PLOT  JOB.  TYPE  IN 
0ADD  MT.GOPBATCH 

THE  NUMBER  OF  THE  PLOT  TAPE  CREATED  WILL  BE  GI’v'EN  ON  THE  PRINT 
OUTPUT. 
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0.2  PROCEDURE  ELEMENTS  OF  MRC*EPAMS 


This  section  contains  relocatable  elements,  mostly  labeled  connon  blocks, 
of  MRC*EPAMS.  Variables  are  defined  within  the  element  In  which  they  occur. 


COMMON  /ABUFER-'-  AC570O) 

END 

COEF  PROC 
r 

FAPAIIETEP  NVAR=4,  LEVELS  =3 

COMMON  -CuEF.  hh (LEVELS, NVAR ) , BB (LEVELS, HVAR) , 
1 CC ( LEVELS , HVAR ) , I FLG 1 

C 

C THESE  VARIABLES  PEPRESENT  COEFFICIENTS  OF  PLANE 


C NVAR  = NUMBER  OF  VARIABLES 

C LE’/ELS  = NIJMBEP  OF  CONSTANT  PRESSURE  LEVELS 

END 

COORD  PROC 

COMMON  . COORD-'  iVPLACE.  VPLACE,  ZPLACE,  EAR, MONTH.  DAY, HOUR. 

1 MINUTE,  TIME.  LTIME 

INTEGER  'i'EhR,  MONTH,  DAY.  HOUR.  MINUTE.  TIME 
C COOPD  IS  COMMON  STORAGE  FOR  THE  TIME  AND  SPATIAL  COORDINATES  OF 
C THE  MICRO  UIND  SIMULATION 

C -'PLACE,  'VPLACE  APE  THE  UTM  COORDINATES  OF  THE  SOUTHUEST  CORNER 
C OF  THE  REGION  OF  INTEREST  IN  KM 

DATFLG  PROC 


COMMON  ./DATFLG-  N'yFLAG'3'' 

THESE  FLAGS  MONITOR  THE  ACOUISITION  OF  LUND  AND  TEMPERATURE 
INITIALIZATION  DATA. 


NVFLAG ( 1 ) 


N'v'FLAGtZ) 


N'vFLAG  '.3'J 


files  PROC 


- 0:  GENI.JND  NOT  'I'ET  FOUND 
- ; : FC'UrU' 

- 0:  SURFACE  HEATING  NOT  '.'ET  FOUND 

- 1 : FOUND 

- 0:  TEMPEPATUPE  PF'OFILE  NOT  'VET  FOUND 

- 1 ; FOUND 


r or !DfjN  FILES-'  I NF I L , ;-;oFF i l . oe f i le . uaf i le . gl'C cbf . guc f i l , 

1 SFCCEF  . SFCF  IL.  RF  ILE  . SPAPEP  . L iPZFL  . L I'PHFL  . TPriiFL  . 

2 MI  C TPF  . r 10 TF  I L , GR  I DF  I . GP  I I'FS  . GF,  I I F 3 

INTEGER  : .INF  IL . . OTF  IL  ■ UAF  ILE  . OEF  ILE  . GMCOEF  . GL'CP  IL  . 

1 SFCCBF  . SFC F IL . PF  ILE , SPAPEF  . L . PZ'FL  . L , F-iFL . TPPfiFL  . 

2 M I C TPF . MOTF  I L . GP  I DF  1 . GF  I DFE , GR  I I'F3 
C 

C THESE  VARIABLES  APE  PASSED  TO  THE  3 PHASES  VIA  THIS  COMMON  BLOCK 
C 

C XINFIL  - INPUT  DATA  (CARD)  FILE 
C /OTFIL  - OUTPUT  SPRINT)  FILE 

C OBFILE  - UPPER  AIR  DATA  MASTER  DIRECTORY  FILE 
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UPPER  flIR  DATA  INVENTORY  FILE 
GU€  DATA  MASTER  DIRECTORY  FILE 

GIJC  DATA  INVENTORY  FILE  ] 

SURFACE  DATA  INVENTORY  FILE  < 

FILE  USED  TO  STORE  TEMPORY  OUTPUT  FROM  ANALYSIS  PHASE  FOR  I 

PRINTING  AND/OR  PLOTTING  BY  GRAPHIC  PHASE  \ 

HEC  DATA  FILE 

HEC  DATA  FILE  j 

MESOSCALE  TERRAIN  DATA  FILE 

MICRO  TERRAIN  FILE  i 

UINDEX  SIMULATION  OUTPUT  FILE  i 

MESO  MODEL  LAYER  1 OUTPUT  FILE  , 

MESO  MODEL  LAYER  2 OUTPUT  FILE  i 

rESO  MODEL  LAYER  3 OUTPUT  FILE  ' 


COMMON  /OBUFER/  GR IDX(PG) . GR IDY(PG) . GRDBLK (RG) . ANLTIM(RG) , RUNMAX- 
1 GRDMAX 

INTEGER  GRDBLK-ANLTIM.RUNMAX. GRDMAX 
C 

C GL’C  HEADER  DATA  IS  READ  INTO  THIS  BUFFER 
C 

C GRIDX.GRIDY  - UTM  COORDINATES  OF  GIX  GRID  POINT 
C GRDBLK(I)  - BLOCK  NUMBER  OF  GUC  FILE  HOLDING  DATA  FOR  RUN  I 

C ANLTIM(I)  - GUC  ANALYSIS  TIME  FOR  RUN  I 

C RUNMAX  - NUMBER  OF  GUC  ANALYSIS  TI^ES  IN  DATA  BASE 

C GRDMAX  - NUI-EER  OF  GUC  GRID  POINTS  IN  DATA  BASE 

C 

END 

GUDATA  PROC 
C 

C GUC  PREDICTION  DATA 
C 

C GTIME  - TIME 

C P - PRESSURE  (PASCALS) 


C UAFILE  - 
C GUCOBF  - 
C GUCFIL  - 
C SFCFIL  - 
C RFILE  - 
C SPAREF  - 
C 

C LYR2FL  - 
C LYR4FL  - 
C TRRNFL  - 
C MICTRF  - 
C MOTFIL  - 
C GRIDFl  - 
C GRIDF2  - 
C GRIDF3  - 
C 

END 

GSUFER  PROC 
C 


C T - TEMP.  DEG.  K 

C Q - SPECIFIC  HUMIDITY 

C U.V  - UIND  COIFONEMTS  (MPS) 

C Z - ELEVATION  ^ETERS 

C 

COMMON  /GUDATA/  GTIME. P(4) . Q(4) . T(4) . U(4) . V(4) . 2 (4) 
INTEGER  GTIME 

END 

IHTLYZ  PROC 

PARAr-CTER  HOBS-10 
C 

COITION  -'INTLYZ/  TPSITE,  GENUNDC2).  TSITE.  DELQ.  DELTER 


D-9 


COMMON  /SUPFOB.'  KIHDXtHOBS) .LINDXCHOBSj -UUCHOBS) . 

1 VU(MOBS) .THETAO(NOBS) .MUMOBS 
COMMON  •-'TPROF-'  TPRO (3) , ZPRO (3) 

C 

C -'INTLYZ.-'  IS  USED  TO  PASS  INITIALIZATION  DATA  TO  SUBROUTINE  UINDEX 
C 

C TPSITE 

C TSITE 

C GENLINDCD 

C GENUIND(2) 

C DELQ 

C TPR ( . ) 

C ZPRC.) 

C DELTER 

END 

MESAGE  PROC 

COMMON  -MESAGE/  FUNCTN.  TASK.  JOB.  BLOCK.  FILE.  PRINT.  LEV’EL 
INTEGER  FUNCTN.  TASK,  JOB.  BLOCK,  FILE,  PRINT 
C 

C THESE  VARIABLES  SPECIFY  LOGICAL  FLOU. 

C FUNCTN  = 1 APPLICATION 

C FUNCTN  = 2 ANALYSIS 

C FUNCTN  = 4 PLOTTING 

C IF  FUNCTN  = 1.  THEN  TASK  = 1 CALLS  MIXLYR 
C = 2 CALLS  LINDMGR 

C JOB  = 0 DEFAULT  VALUE 

C = 1 DIAGNOSTIC 

C =2  PREDICTION 

C BLOCK  IS  NOT  YET  DEFINED 

C FILE  SPECIFIES  OUTPUT  DEBUG  FILE  FOP  EXECUTION  TIME  DIAGNOSTICS 
C PRINT  DETERMINES  DEBUG  OUTPUT 

C PRINT  = 0 

C - 1 

C 

C =2 

C =3 

C ’•4 

C 

END 

MPCDAT  PROC 
C 

C DTBMGP  SEEKS  INFORMATION  FROM  THE  UPPER  AIR.  SURFACE,  GIJC. 

C MESOrttDEL.  AND  MESONET  DATA  INVENTORIES.  THE  INFORMATION  MUST  COME  FROM 

C STATIONS  I..JHICH  APE  SUFFICIENTLY'  CLOSE  IN  TIME  AND  SPACE  TO  THE 

C SIMULATION  TIflE  AND  LOCATION.  THE  INFORMATION  IS  STORED  IN  THESE 
C VARIABLES  AND  PASSED  TO  DATANL. 

C 

C 

PARAMETER  NUAX=4,  NLVL-25.  NSFX=b.  NGU<=4,  ITT«2.  NMMX=9. 

1 LAYERS =2 


NO  DEBUG  OUTPUT 

PRINT  FORMAL  ARGUMENT  SUBROUTINE  INPUT  AND  OUTPUT 
PARAMETERS 

PRINT  INTERMEDIATE  RESULTS 
PRINT  ALL  RELEVANT  VARIABLES 

PRINT  DATA  FILES  WHEN  BLI'IN  AND  BLKOUT  ARE  CALLED 


- SURFACE  POTENTIAL  TEMPERATURE  AT  SIMULATION  SITE 

- TEMPERATURE  AT  SITE 

- EASTERLY  COMPONENT  OF  BACKGROUND  I.JIHD 

- NORTHERLY  COMPONENT  OF  BACKGROUND  UIHD 

- MEASURE  OF  AVERAGE  SURFACE  HEATING 

POTENTIAL  TEMPERATURE  (DEG  KJ 
PROFILE  AT  SITE  (METERS) 

- TERRAIN  GRID  SPACING 
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NUflX  - NUMBER  OF  UA  STATIONS  SOUGHT 

NLVL  - NUMBER  OF  UA  LEVELS  SOUGHT 

NSFX  - NUMBER  OF  SURFACE  STATIONS  SOUGHT 

NGUX  - NUMBER  OF  GUC  GRID  POINTS  SOUGHT 

ITT  - NUMBER  OF  GUC  PREDICTION  TIMES  USED 

NMMX  - NUMBER  OF  r€S0  MODEL  GRID  POINTS  SOUGHT 

LAYERS  - NUMBER  OF  MESO  MODEL  LAYERS  SEARCHED  FOR  DATA 

COMMON/MRCDAT/NUANUM, STIJNUM(NUAX) . XSTA ( MUAX) , YSTA (NUAX) . ZSTA (NU 

2 AX) . UD IST(NUAX) - IFLAGU (NUAX) , NTR (NUAX) . UPTIME (NUAX) - PRES (NLVL. 

3 NUAX) . TEMP (NLVL . NUAX) . QHUM( NL VL , NUAX) . ZMSL ( NLVL . NUAX) . 

4 VRTEMP (NLVL. NUAX). POTEMP (NLVL. NUAX) .UUIND(NLVL.NUAX) .VUIND(NLVL 

5 .NUAX) .NUR(NUAX) .UVEL( NLVL. NUAX) .VVEL( NLVL. NUAX) .ZUDMSL 
M (NLVL . NUAX) , NSFNUM, SD 1ST (NSFX) . 

7 STSHUM(NSFX) . XSTS (NSFX) . YSTS (NSFX) . ZSTS (NSFX) . 

S I FLAGS (NSFX) . SFTIME (NSFX) . UDSF (NSFX) . USSF (NSFX) , UGSF (NSFX) . 

9 SLPSF(NSFX).BTSF(NSFX) .TSSF(NSFX),TDSF(N3F::).ASSF(NSFX)  . 

T PASF(NSFX) . TSCSF( NSFX)  ,PUSF(  NSFX)  .VVSF(NSFX)  .I.JUSF(4.NSFX) , 

1 ICLOUDO.NSFX)  ,STDSTF(NSFX)  .NGWNUM(  ITT) . IGGNUM(  ITT. NGUX) . 

2 GDIST( I TT. NGUX), XGRD( ITT. NGUX), YGRD( ITT, NGUX), ZGRD( ITT, 

3 NGUX), IFLAGG( ITT, NGUX) , GUT I ME ( ITT, NGUX) .PGU(4. ITT.NGUX) . 

4 QGU(4, ITT.NGUX) ,TGU(4. ITT.NGUX) ,IJGU(4. ITT.NGUX). 

5 VGU(4. ITT.NGUX) .ZZGU(4, ITT.NGUX) . 

6 NMMNUM.  RMD  IST(NMMX) , XGRDMM(NMMX) , YGRDMM(NmX) , 

7 2GRDMM(NMMX) .HMMCLAYERS, NMMX) ,AVM(LAYERS, NMMX) , 

a AVN(LAYERS,NMMX) , AVMl (LAYERS, NMMX) .AVNl (LAVERS, NMMX) . 

9 AVIJE  ( LAYERS . NMMX) . AWE  ( LAYERS , NMMX) . MMT I ME . I BLK , 

T NNTHUM.METDAT(20) 

INTEGER  UPTIME,  SFTIME,  TSCSF,  PUSF,  WSF,  WUSF,  GUT I ME,  BTSF, 

M STUNUM 

UPPER  AIR  VARIABLES 

NUAX  - NUMBER  OF  UA  STATIONS  SOUGHT 

NUANUM  - NUMBER  OF  SUITABLE  UA  STATIONS  FOUND 

STUNUM  - ID  NUMBER  OF  ITH  STATION  FOUND 

XSTA(I)  - UTM  X COORDINATE  OF  UA  STATION  I (KM) 

YSTA(I)  - UTM  Y CORD  I NATE  OF  UA  STATION  (KM) 

ZSTA(I)  - ELEVATION  ( METERS :> 

UDIST(I)  - DISTANCE  TO  SIMULATION  SITE 

UPTIMEd)  - PACKED  JULIAN  DAY  AND  HOUR  OF  UA  OBSERVATIONS  (GPEENUICH) 
NTR(I)  - NUMBER  OF  TEMPEPATIJPE  AND  PP.ESSUFE  READINGS 
IFLAGU(I)  - FLAG  DESCRIBING  UA  DATA 

PRESd.J)  - UA  PRESSURE  AT  LEVEL  I FOR  JTH  STATION  (PASCALS) 
TEMPd.J)  - UA  TEMP  (DEGREES  K) 

QHUMd.J)  - UA  SPECIFIC  HUMIDITV 

ZMSLd.J)  - UA  ELEVATION  (METERS  ABOVE  SEA  LEVEL) 

VRTEI'Pd.J)  ~ UA  VIRTUAL  TEMP  (DEGREES  K) 

POTEMPd.J)  - UA  .POTENTIAL  TEMP  (DEGREES  lO 
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UUINDCI.J)  - UA  U-COMPONENT  I.JIHD  AT  ELEVAION  ZhSL 
VUlND(I,J:i  - UA  V-COMPONENT  UIND  AT  ELEVAION  ZMSL 

OBSERVATIONS  AT  SIGNIFICANT  I.JIND  LEVELS 

NUiP  - NUMBER  OF  UA  UIND  READINGS 
UVEL'I,J)  - U-COMPONENT  I.JIND  AT  LEVEL  ZUDM3L 
VVELn.J)  - V-QOMFONENT  UIND  AT  LEVEL  ZUDMSL 
ZUDMSL(I.J)  - ELEVATION  OF  SIGNIFICANT  UIND  READINGS 

SURFACE  VARIABLES 

NSF.V  - NUMBER  OF  SURFACE  STATIONS  SOUGHT 
NSFNUM  - NUMBER  OF  SURFACE  STATIONS  FOUND 
STSNUMU)  - ID  NUMBER  OF  SURFACE  STATION  I 
SDISTCI)  - DISTANCE  TO  SIMULATION  SITE 
SSTS«;i)..YSTS(I)  - UTM  COORDINATES  OF  SURFACE  STATIONS 
ZSTSd)  - ELEVATION  OF  SURFACE  STATION  (METERS'! 

SFTIME(i)  - TIME  OF  SURFACE  STATION  OBSERVATION  (PACKED  JULIAN  DAY  AND  HOU 
UDSFCn  - UIND  DIRECTION  'DEGREES  FROM  TRUE  NORTH) 

USSF(I)  - SPEED  (MPS) 

UGSF(I)  - UIND  GUSTS  (MPS) 

SLPSF(I)  - SEA  LEVEL  PRESS  (MB)  (CONVERTED  TO  STATION  PRESS.  IN  MB) 

BTSF(I)  - BAROMETRIC  TENDENCY 
TSSF(I)  - SURFACE  TEMP  (DEG  K) 

TDSF(I)  - DEU  POINT  DEPRESSION  (DEG  K) 

ASSF(I)  - ALTIMETER  SETTING  (INCHES  HG) 

PASFri)  - b HOURLY  PRECIPITATION  (MILLIMETERS) 

TSCSF(I)  - TOTAL  SKY  COVER 
PUSFd)  - PAST  UEATHER  (UMO  4500) 

VVSFd)  - VISIBILITY  (M) 

UUSFd.J)  - PRESENT  UEATHER  FOP  STATION  J (INTEGER  CODE) 

ICLOUDd.J)  - CLOUD  DATA  FOR  STATION  J (INTEGER  CODE) 

1=1:  FRACTION  OF  CELESTIAL  DOME  COVERED  BY  LOU  CLOUDS  (3  THS) 

1=2:  type  of  LOU  CLOUD  (UMO  0513) 

1-3:  HEIGHT  ABOVE  GPOUND  OF  LOUEST  CLOUD  'UMO  IbOO) 

!=4:  TYPE  OF  MIDDLE  CLOUD  (UMO  0513) 

1=5:  TYPE  OF  HIGH  CLOUD  (UMO  0509) 

1-b:  AMOUNT  OF  CLOUDS  '3  THS) 

1=7:  CLASSIFICATION  OF  CLOUDS  ACCORDING  TO  HEIGHT 

1-8:  TYPE  OF  CLOUD  UITHIN  HEIGHT  CLASSIFICATION 

1=9:  HEIGHT  ABOVE  GPOUND  OF  BASE  OF  CLOUD  LA'i'EP  (UMO  1677) 

GLCBAL  UEATHER  VARIABLES 

NGUM  - NUI-1EER  OF  GUC  VARIABLES  SOUGHT 

MGUNUMd)  - NUMBER  OF  GUC  VARIABLES  FOUND  FOR  TIME  I 

IGGNUMd.J)  - GRID  POINT  INDEX  (INTEGER) 

GDISTd.J)  - DISTANCE  TO  SIMULATION  SITE  (METEPS) 

XGPDddJ  . rGRDd- J)  - UTM  COORDINATES  OF  GUC  GRID  POINT 
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C ZGRD(I.J)  - SURFACE  ELEVATION  AT  UTM  XGRD.YGPD:  SET  EQUAL  TO  ZERO 

C IFLAGG(I.J)  - FLAG  FOR  DATA  FROM  TIME  I AND  GRID  POINT  J 

C - I«1  IS  GUC  DATA  AT  UPTIME 

C - 1-2  IS  GUC  DATA  AT  UINDEX  SIMULATION  TirE 

C GUTIME(I,J)  - PACKED  JULIAN  DAY  AND  HOUR  FOR  TIME  AND  STATION 
C PGUCK.I.J)  - PRESSURE  AT  INDICATED  LEVEL.  TIME.  AMD  STATION 
C QGUCK.I.J)  - SPECIFIC  HUMIDITY 

C TGU(k.I.J)  -TEMPERATURE  (DEGREES  K) 

C UGU(K. I. J) .VTSUCK. I. J)  - U.V  COMPONENTS  OF  UIND 
C ZZGU(K. I.J)  - ELEVATION  OF  GUC  PREDICTIONS  (M) 

C 

C MESOMODEL  VARIABLES 

C 

C NMMX  - NUMBER  OF  MESOSCALE  GRID  POUfTS  SOUGHT 
C NMMhlUM  - NUMBER  OF  MESOSCALE  GRID  POINTS  POUND 
C RMDIST(J)  - DISTANCE  FROM  GRID  POINT  J TO  SIMULATION  SITE  (M) 

C XGRDMM(J) .YGRD^M(J)  - X.Y  UTM  COORDINATES  OF  ME30  GRID  POINT  J 

C ZGRDMMCJ^  - SURFACE  ELEVATION  AT  lESO  GRID  POINT 

C HMM^L.J)  - LAYER  HEIGHT  (METERS) 

C AVM(L.J)  - AVERAGE  MOMENTUM  FLUX,  X DIRECTION  '(KG.^MMS) 

C AVM(L.J)  - AVERAGE  MOMENTUM  FLUX.  Y DIRECTION  (KG-MMS) 

C AVMUL.J)  - FIRST  MOhENT  MOMEMTUM  FLUX.  X DIRECTION  iGRID) 

C AVNKL.J)  - FIRST  MOKENT  MOMEMTUM  FLUX.  Y DIRECTION  (GRID) 

C AVUE(L.J)  - HEIGHT  INTEGRATED  ENERGY  FLUX,  X DIRECTION  (GRID)  (J-tM/S) 

C AVVE(L.J)  - HEIGHT  INTEGRATED  ENERGY  FLUX.  V DIRECTION  (GRID)  (J^tM/S) 

C MMTRE(J)  - PACKED  JULIAN  DAY  AND  HOUR  OF  MESOMODEL  SIMULATION 
C IBLK  - NUr-BER  OF  BLOCKS  STACKED 

C 

C MESONET  VARIABLES 

G 

C NNTNIJM  - NUMBER  OF  MESNET  DATA  POINTS 

C METDAT(20)  - DUMM't'  ARRAY  TO  CONTAIN  TESNET  DATA 

END 

MRCHDR  PROC 

PARAf-ETER  RUNS -25.  NPAPAM-6 

PARAMETER  HDRS IZ- ( lO+NPARAM) t^RlJMS+l 

COMMON  .tBCHDRx  RCOUNT.PTEMPtRUMS.S) ,ZELEV(RUNS,3) . 

1 DELTAQ(RUNS)  .;-UIND(RUNS)  .VUIND(RUNS)  .TERBLKCRUNS) 

2 . PARAMS t PUNS. NP ARAM) 

INTEGER  RCOUNT 

INTEGER  TERBLK 
INTEGER  PARAMS 
C 

C -^CHDR''  CONTAINS  DIRECTORY  INFORMATION  FOR  THE  MICRO  UIND  MODEL 

C OUTPUT  FILE.  THE  DIRECTORY  RESIDES  IN  THE  FIRST  BLOCK  OF  THE 

C OUTPUT  FILE;  TEMPERATURE.  U-UIND.  AND  V-UIND  FIELDS  ARE  STORED  IN 
C CONSECUTIVE  BLOCKS  THEREAFTER.  THE  DIRECTOR'r  CONTAINS  THE  DRIVING 
C PARAMETERS  FOR  EACH  ARCHIVED  PUN. 

C 

C RCOUNT  - NUMBER  OF  RUNS  ARCHIVED  IN  OUTPUT  FILE 


D-13 


D r>  ri  ri  n o n o o n o o o n o o n ri  o o rj  o o o ri  o 3:  o o n r-|  n o n d ri  o o < < o 


PTEMPd..)  - POTEHTIkSL  TEMPEPATUPE  PROFILE 

ZELEVd-.)  - FOP  RUN  I i-DEGPEES  K:  riETERSl 

DELTAOd:'  - SURFACE  HEATING  FOP  PIJM  I 

:-;UINDd)  - EAST  iJIND  COMPONENT  FOP  RUN  I triETERS-^SEC) 

'I'UIND'i)  - NOPTH  UIND  COMPONENT  FOP  PUN  I 

TEPBLKd)  - TEPPAIN  BLOCtC  tIUMBEP  FOP  FUN  I 

PARAMSd.l)  - ILE  FOR  RUN  I 

FARAMSd.2)  - ILU  FOR  PUN  I 

PARAMSd.31  - JLN  FOR  RUN  I 

PARAMSd.A)  - jLS  FOR  RUN  1 

PARAMSd.S)  - IHIERC  FOP  RUN  I 

PAPAMSd-b)  - IPELA;'  FOR  RUN  I 

END 

RCIPF  PPOC 

PARAMETER  IMRCS=b 

COMMON  MPCIPF  ' IDATt IMPCS) . !MPT( IMPCS) . 

1 ILHSTPdiTST.  IFLU;;,  IHIEPC.MTFELk.  IPELA::.  ILE.  ILU.  JLN.  JLS 

••■MPCIPF  ■ CONTAINS  FLAGS  UHICH  CONTROL  THE  DATA  EASE  SEARCH  AND 
THE  MICRO  UIND  SIMULATION 


IDATi;  i ;i 
II'hT 1, 2 I 
IDATcSi 
I DAT  1, 4.1 
IDATd) 
I DAT ' b » 
IMDTd:i 
IMDTdj 
IMDT I S ' 
IMDTi4'i 

IMDT '-5) 
I LAS TP 
NTST 
IFLU;'! 
IHIEPC 

MTPBLt- 

IFELAM 


UPPER  A IP  DATA  ACCESS  FLAG 

supfhce  station  data  access  flag 

GUC  DATA  ACCESS  FLAG 
[ iEbUMODEL  DATA  ACCESS  FLAG 
f'lESONET  DATA  ACCESS  FLAG 
MANUAL  OVERRIDE  FLAG 
UA  TIME  INTERPOLATION  FLAG 
SUPFACE  STATION  TIME  CRITERIA  FLAG 
GUC  FLhG  MiOT  IJSED'i 

NUMBER  OF  BLOCl-  IN  FILE  GRDFL2  CONTAINING 

I iSSOMCDEL  DATA 

MESONET  FLAG  MIOT  USED> 

MULTIPLE  RUN  FLAG 
ARCHIVING  FLAG 

NUMBER  OF  LOCAL  PLUM  EOI'ES  AVERAGED 

MODEL  comple:;ity  flag 

IF  IHIERC  = 0.  uinde::  is  not  e:;ecuted 

MICRO  terrain  data  acouisition  flag 

NUMBER  OF  PELAIMATION  PASSES  TO  BE  EIIECUTED  IN 

uinde:< 

EASTERNMOST  GRID  INDE:-;  LIMIT 
NORTHERNMOST  GRID  IND£:n  LIMIT 
UESTEFNMOST  GRID  INDE:<  LIMIT 
SOUTHEPNMOST  GRID  INDE!;  LIMIT 


END 

OBUFER  PROC 
C 


i 


UPPER  AIR  HEADER  DATA  IS  LOADED  INTO  THIS  BUFFER 


C 
C 

C UASTNS(I)  - STATION  NUMBER 
C UASTNA(I)  - ANGLE  BETUEEN  TRUE  N AND  UTM  N 
C UASTNX(I)  - STATION  UTM  X COORD  IN  KM 

C UASTNYCI)  - STATION  UTM  Y COORD  IN  KM 

C UASTNZ(I)  - STATION  ELEVATION  IN  METERS 

C TLVLMIXCI.J)  - NO.  OF  LEVELS  OF  TEMP.  DATA  FOR  STATION.  RUN 
C TADRES(I.J)  - DRUM  ADDRESS  OF  TEMP  DATA  FOR  STATION.  RUN 
C ULVLMX(I.J)  - NO.  OF  LEVELS  OF  UIND  DATA  FOR  STATION.  RUN 
C UhDRES(I.J)  - DRUM  ADDRESS  OF  UIND  DATA  FOR  STATION.  RUN 

C LATEST  - RUN  INDEX  FOR  LATEST  RUN 

C RUNMAX  - MAX.  NO.  OF  RUNS 

C STNMAX  - MAX.  NO.  OF  STATIONS 

C UATIMEd)  - PACKED  JULIAN  DAY  AND  HOUR  OF  IJA  OBSERVATIONS  FOR  RUN  1 
C 

COMMON  /OBLIFER/  UASTNS(SU) .UASTNA(SU) -UASTNX(SU) ,UASTNY(SU) . 

1 UASTNZ(SU).TLV'LMX(SU,RU)  .TADRES(SU.RU)  -UL'v'LrDXSU.RU). 

2 UADRES  ( SU . RU ) , U AT  I ME  ( RU ) , LATEST,.  RUNMAX.  STNI  lAX 

I NTEGER  TLVLMX, ULVLMX. TADRES , UADRES, LATEST. RUNMAX, STNMAX. UAT IME . 

1 UASTNS 

END 

SBUFER  PROC 

COMMON  /SBUFER  " SFCSTN(SS) . SF3TNA(SS) . SFSTNX(SS) .3FSTNY(SS) . 

1 SFSTNZCSS) .LATEST, RUNMAX. STNMAX 
INTEGER  SFCSTN . LATEST. RUNMAX. STNMAX 
C 

C SFCSTN (I)  - SURFACE  STATION  ID 

C SFSTNACn  - ANGLE  BETUEEN  TRUE  N AND  UTM  N 

C SFSTNXtl)  - UTT-1  X 

C SFSTNY(I)  - UTM  Y 

C SFSTNZd)  - STATION  ELEVATION  (METERS) 

C RUNTIMd)  - PACKED  JULIAN  DA','  AND  HOUR  OF  SS  OBSERVATION  FOR  RUN  I 

C LATEST  - LATEST  RUN  CONTAINING  DATA 
C RUNMAX:  - NUMBER  OF  PUNS  IN  DATA  BASE 

C STNMAX  - NUMBER  OF  STATIONS  IN  DATA  BASE 

C SADRESd.J)  - ARRAY  OF  RO  INTERS  FOR  STATION  I.  RUN  J 
C 

END 

SCRTCH  PROC 

COMMON/SCRTCH ■ IDXSTA (SS) . STADST(S3> 

C 

C SCRATCH  STORAGE  AREA  USED  IN  PARTICULAR 

C BY  SUBROUTINE  CLSSTN 

C 

END 

SFDATA  PROC 
C 

C SURFACE  DATA 
C 
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C STIME  - TIME 

C UD  - UIND  DIRECTION  (DEG) 

C US  - SPEED  (MPS) 

C IJG  - UIND  GUSTS  (MPS) 

C SLP  - SEA  LEVEL  PRESS  (MB)  (CONVERTED  TO  STATION  PRESS,  IN  MB) 

C BT  - BAROMETRIC  TENDENCY 

C TS  - SURFACE  TEMP  (DEG  K) 

C TD  - DEU  POINT  DEPRESSION  (DEG  lO 

C AS  - ALTIMETER  SETTING  (INCHES  HG) 

C PA  - b HOURLY  PRECIP.  (MILLIMETERS) 

C TSC  - TOTAL  SKY  COVER 

C PU  - PAST  LEATHER  (UMO  4500) 

C VV  - VISIBILITY  (M) 

C UU(I)  - PRESENT  UEATHER 

C NH  - FRACTION  OF  CELESTIAL  DOME  COVERED  BY  LOLT  CLOUDS  (9  THS) 

C CL  - TYRE  OF  LOU  CLOUD  (UMO  0513) 

C H - HEIGHT  ABOVE  GROUND  OF  LOUEST  CLOUD  (UMO  1600) 

C CM  - TYPE  OF  MIDDLE  CLOUD  (UMO  0515) 

C CH  - TYPE  OF  HIGH  CLOUD  (UMO  0509) 

C NS  - AMOUNT  OF  CLOUDS  (8  THS) 

C K - CLASSIFICATION  OF  CLOUDS  ACCORDING  TO  HEIGHT 
C CT  - Ti'PE  OF  CLOUD  UITHIN  HEIGHT  CLASSIFICATION 
C HSHS  - HEIGHT  ABOVE  GROUND  OF  BASE  OF  CLOUD  LA)ER  (UMO  1677) 

C 

COMMON  /SFDATA.'  ST  1 IE . UD , US , UG , SLP , BT . T3 , TD . AS , PA , TSC , PU,  VV,  UU( 4) 
1 NH,CL,H,CM,CH,NS,K,CT,HSHS 
I NTEGER  ST  I ME , TSC , PU, VV, UU. CL . H . CM, CH , CT, HSHS , BT 
END 

TBLHDR  PROC 

PARAMETER  IDIM=50,  THDRSC=251 

COMMON  ^TBLHDP  ' NMBLK , ND IMMH ( ID IM) . MD IMYH ( ID IM) .DELH( IDIM) . 

1 
C 

C NNBLK 

C NDIMXH(.) 

C NDIMYH(.) 

C DELH(.) 

C SUUTm(.) 

C SUUTMY( . ) 

C 

END 

TDATA  PROC 

C>toK  UPPER  AIR  DATA  FOR  PARTICULAR  STATION,  RUN 
C PS  - PRESSURE  IN  PASCALS  (PASCALS  0 1 =■  MB) 

C as  - SPECIFIC  HUMIDITY 

C TS  - TEl-P  DEG  K 

C ZS  - ELEVATION  METERS 

C TV  - VIRTUAL  TEMP  DEG  K 

C TA  - POTENTIAL  TEMP.  DEG.  K 

C US, VS  - UIND  COMPONENTS  MPS 


SUUTM:((  IDIM)  ,SUUTil'f'(  IDIM) 

- NUMBER  OF  ARCHIVED  TEPPAIN  AND  ROUGNESS  PAIRS 

- Y DIIEMSIOH  OF  TEPPAIN  APPA'-i'S 

- Y D HEMS  ION  OF  TEPPAIN  ARRAYS 

- GRID  SPACING  METERS)  OF  TERRAIN  DATA 

- UTM  ::  COORDINATE  OF  SU  COPNEP 

- UTM  V COORDINATE  OF  SU  CORNER 


i 


1 

t 


! 

I 

I 

! 


I 


i 

I 

i 


/ 

1 


1 

i 
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C DELTA  - HYDROSTATIC  EQUATION  EXPONENT 

c PD  - d-vhlue  for  pressure  level 

C I MAX  - NO.  OF  LEVELS 

C 

COMMON/TDATA/  TTIME. 

1 PS(40).QSe40).TS(40)-ZS(40)-TV(40),TA(40),US(40). 

2 VS(4O).DELTAi:40).PD(40).  IMAX 
INTEGER  TTIM? 

END 

TERDAT  PROC 
C 

DIMENSION  H(ILL.JLL) 

COMMON  /TERDATx  TMATRXC ILL. JLL) . POUGHC ILL. JLL) 

EQUIVALENCE  (H.TMATRX) 

C 

C H(I.J)  - TERRAIN  HEIGHT  AT  GRID  POINT  CI.J)  (METERS) 

C ROUGH ( I,  J)  - ROUGHNESS  AT  GRID  POINT  CI.J)* 

C 

END 

TRPDTA  PROC 

COMMON  /TRPDTA.'  PT(3) .QT(3) . TT(3) .ZT(3> . TB(3) , TI(3) . UT(3) . VT(3) . 
1 TD(3).NMAX 

END 

UDATA  PROC 

C UPPER  AIR  DATA  SIGNIFICANT  WIND  READINGS 
C UU.VIJ  - IJIND  COMPONENTS  MPS 
C ZU  - ELEVATION  METERS 

C KMAX  - NO.  OF  LEVELS 

C 

COMMON  /UDATA/  UTIME.UIJ(40)  .''.-14(40)  .Zy  40) , KMAX 

END 
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DATPRM  PROC 
C 

C THIS  PROCEDURE  SETS  PARfiMETERS  RELATED  TO  THE  DATA  BASE 
C STRUCTURE  AND  SEARCH. 

PARAMETER  SS- 163- S0BS=5*SS+3 
PARAMETER  SU=25,  RU=3.  UOBS=  (4yRU+5)  >)'SU+PU+3 
PARAMETER  PG=25.  RG=80  .GLVLS=4, GPTS=2't!(PG+RG+l ) , GBLK-STOO 
PARAMETER  MXBLKU=30.  rt<BLKS»l-  MXELKGM 
PARAMETER  TIMDlF=r 
C 

C MXSLKU  - MAXIMUM  NO.  OF  DATA  BLOCKS  IN  FILE  OBFILE 

C MXBLKG  - MAXIMUM  NO.  OF  DATA  LOCKS  IN  FILE  GIJCPFL 

C MXBLKS  - MAXIMUM  HO.  OF  DATA  BLOCKS  IN  FILE  SFCOBF 

C 

END 

GRDPRM  PROC 

C THIS  PROCEDURE  SETS  PARAMETERS  GIVING  DIMENSIONS  FOR  THE  MICRO 
C TERRAIN  AND  IJIND  FIELD  ARRAYS. 

C 

PARAMETER  ILL=40.  JLL=40-  ICC=ILL-1.  JCC=JLL-1. 

1 NFOLIT  * ILL't-'JLL.  ICCJCC=  ICC'kJCC 

END 

UAOBPR  PROC 

PARAMETER  SU=25.  PU=3-  NU  = 66  . L'r'P2=59HNU+2 
PARAMETER  UOBS=  C4'>;RU+5:i  +SU+FIJ+3  .LVR4=20'f:NU+r0 

END 


GPIDPP  PROC 

PARAMETER 

PAPAr'ETEP 

PARAMETER 

END 

GulCPPP  PROC 

PAPhMETEP 

END 

SFCSPP  PROC 


IPR=25.  JPR=25.  NGR'D  = IPRt-Jpp.  NGP1=NGPD+1 
NGMA=NGPD  + IPP+3.N;L=NGPr-IP^  MJLP  1 =IIJLf  1 .NLB=NGMA-2 
IPP!  = irP+l  .NPL=NGPD+iF'Pl . iPP2=:FPl  + l . IPMl-IPR-1 


Pb  -wS-  F G “SU  . IjL’’ 'L?  =4  . Ijr'  I *■  * r Ij +PG  I .gELI  -5200 


RARAi  'ETEF  S o = ! 63 . F‘5  =4 . 3C£ i =5  > 33+3 . TEL'  =33 00 
PAPAMETER  DBASTl  SO'SOO . I'BASTG'  = 33500 . DtASTS  = 32000 


ROTATE  PROC 

=EnL  rO'ATp  0.0 

END 


^This  procedure  element  is  used  when  the  analysis  is  run  in  the  soutnwestern 
United  States 


0-18 


DATPRM 

C 


PROC 


C 
C 
C 
C 
C 

END 

GRDPRM 

C 


PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAr-ETER 

MXBLKU 
MXBLKG 
MXBLKS 


SS-387’-^JBS-5*SS+3 

SU-36-  RU-3.  U0BS-(4)«RU+5))xSU+RU+3 

PG=25.  RG-30,GLVLS-4.GPTS-2>k(PG+RG+1).GBLK> 

MXBLKU -30.  MXBLKS- 1.  MXBLKG -1 

TIMDIF  — 1 


5T00 


MAXIMUM  NO.  OF  DATA  BLOCKS  IN  FILE  OBFILE 
MAXIMUM  NO.  OF  DATA  LOCKS  IN  FILE  GUCPFL 
MAXIMUM  NO.  OF  DATA  BLOCKS  IN  FILE  SFCOBF 


PROC 


PARAMETER  ILL-51.  JLL-31. 

1 .NFOUT  - ILL*JLL. 

END 

UAOBPR 


ICC-ILL-1.  JCC-JLL-1 
ICCJCC-ICC*JCC 


IPR-25.  JPR-25.  NGRD-IPR!«JPR.  NGPl-NGRD+1 
NGMA-NGRD+IPR+3.NJL-NGRD-IPR.NJLP1-NJL+1.NLB-NGMA-2 
IPPl-IPR+l.NRL-NGRD+IPPl. IPP2-IPP1+1. IPMl-IPR-1 


PROC 

PARA^ETER  SU-36.  RU-3.  NU  - 72  . LYR2-59>ttNU+2 
PARAMETER  UOBS-(4*RU+5)>i<SU+RU+3.LYR4-20M<NU+70 

END 

GRIDPR  PROC 

PARAMETER 
PARAMETER 
PARAMETER 
END 

GUCPPR  PROC 

PARAMETER  PG-25.  RG-80. GLVLS-4. GPTS-2*(PG+RG+1) . GBLK-5700 

END 

SFOBPR  PROC 

PARAMETER 
PARAMETER 

END 

ROTATE  PROC 

REAL  ROTATE/. 89982/ 

END 


SS-387. 
DBASTl  ’ 


RS-1.SOBS-5KSS+3.SBLK-6600 
■ 30500. DBAST2  - 32000. DBAST3  - 


33500 


♦This  procedure  element  Is  used  when  the  analysts  fs  run  tn  Europe. 
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fiCNRML  PROC 

C*5K  GLOBAL  ARRAY  OF  NORMAL  ACCELERATIONS 
COMMON  XACNRML/  ACNRML ( ICC- JCC) 

END 

INPPRM  PROC 

COMMON  >'INPPRM/  NRELAX-DGRID.ZGRID-DR.DD. ILEVEL- 
I IL. JL- IC. JC, ICl. JCl.NR.TRLX.VRLX 
C 

C /INPPRM/  CONTAINS  PARAMETERS  LOCAL  TO  UINDEX  AND  ITS  SUBROUTINES 
C 


c 

IL 

- 

'DO  LOOP'  PARAMETERS  IN  SUBROUTINE  RELAX 

c 

JL 

- 

USUAL  VALUES  ARE  ILL-JLL 

c 

IC- ICl 

- 

SET  EQUAL  TO  ILE-1-  ILU 

c 

JC-JCl 

- 

SET  EQUAL  TO  JLN-l-JLS 

c 

NRELAX 

- 

NUMBER  OF  RELAXATION  PASSES  TO  BE  EXECUTED 

c 

NR 

- 

CURRENT  RELAXATION  PASS  COUNTER 

c 

DGRID 

- 

MICRO  TERRAIN  GRID  SPACING 

c 

DD 

- 

ROTATED  GRID  SPACING 

c 

DD  = DGPIDM<SQRT(2) 

c 

DR 

- 

SET  EQUAL  TO  I'DD 

c 

ZGRID 

- 

SURFACE  LAYER  HEIGHT;  SET  EOUAL  TO  6 METERS 

c 

I LEVEL 

- 

MODEL  COMPLEXITY  FLAG 

c 

ILEVEL  =■  1:  CONSTANT  TEMPERATURE  FIELD 

c 

ILEVEL  = 2:  TEMPERATURE  FIELD  SUBJECT  TO 

c 

VARIATIONAL  MINIMIZATION 

c 

TRLX-VRLX 

- 

RELAXATION  PARAMETERS 

C 

END 

SETBOX  PROC 

COMMON  /SETBOX/' NSET(4)- lUTFLG, RbJTFLG, BOXAV 
C 

C HSET( . ) 

C 
C 
C 

C lUTFLG 

C 
C 
C 

C RIJTFLG 

C BOJ'hV 

C 
C 

END 

START  PPOC 

C**  MESOSCALE  DRIVERS  USED  BV  SETUP  TO  INITIALIZE  IJIND  AND 
C^-i*  TEMPERATURE  FIELDS 

COMMON  /START/  VE.VN.DELTO 
END 

DRIVER  PROC 

COMMON  /DRIVER/  UB.VB. VMAG, VMAGSQ 


FLAGS  SPECIFYING  WHICH  LOCAL  FLUX  BOXES  TO 
USE  IN  ESTIMATING  LOCAL  RESIDUALS 
» 1 USE 
=■  0 DON'T  USE 

FLAG  USED  TO  CONTROL  SELECTION  OF  LOCAL 
FLUX  BOXES 

= 2 CHOOSE  TWO  UPSTREAM  BOXES 
= 4 CHOOSE  ALL  FOUR  LOCAL  BOXES 
SET  EQUAL  TO  U.JTFLG 

FACTOR  USED  IN  AVERAGING  LOCAL  RESIDUALS. 
SET  IN  ROUTINE  INPUTS 


5 

I 


I 

I 


I 


I 
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c 

c 

c 

c 

c 

c 

c 

c 


/DRIVER/  CONTAINS  VARIABLES  DESCRIBING  THE  BACKGROUND 
DRIVING  UIND 

VMAG  - MAGNITUDE  OF  DRIVING  UIND 

VMAGSQ  - EQUALS  VMAG=*t>t«2 

UB  - U COMPONENT  OF  DRIVING  UIND  (ROTATED  SYSTEM) 

VB  - V COMPONENT  OF  DRIVING  UIND  (ROTATED  SYSTEM) 


END 

SLOPES  PROC 
CMOK  GLOBAL 
comoN 

1 

END 

TEMPEX  PROC 
COMMON 


ARRAY  OF  TERRAIN  SLOPES  AND  UARPED  COORDINATE  AREA  FACTORS 
/SLOPES/  SLOPE  1(  ICC. JCC).  SL0PE2 ( ICC, JCC) . 

AREAFCICC, JCC) 


/TEMPEX/  TEMPEX( ICC. JCC) 


END 

FIELDS  PROC 

COIt-ION  /UNDVEL/  UdCC.JCC).  VdCC.JCC) 

COMMON  /POTEHP/  THTAdCC.JCC) 

C 

C U(...)  - ARRAY  OF  UUIND  COMPONENTS  (ROTATED  SYSTEM) 

C V(...)  - ARRAY  OF  VUIND  COMPONENTS  (ROTATED  SYSTEM) 

C THTA(...)  - SURFACE  POTENTIAL  TEMPERATURE  ARRAY 

C 

END 

SURFOB  PROC 

PARAMETER  NOBS- 10 


COMMON  /SURFOB/  K INDX(NOBS) , L INDX(NOBS) . UU(NOBS) 
1 .VU(NOBS) .THETA0(NOBS) .NUMOBS 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

END 

DERIV 


/SURFOB/  VARIABLES  ARE  SUPPLIED  DATA  VIA  MANUAL  INPUT 
AND  CAUSE  PEGGING  OF  UIND  AND  TEMPERATURE  VALUES 

KINDXd)  - THE  ITH  PEGGED  VALUE  IS  AT  GRID 

LINDXCI)  - POINT  (KINDXd)  .LINDXd)) 

UUd)  - U COMPONENT  OF  ITH  PEGGED  UIND  VECTOR 

VUd)  - V COMPONENT  OF  ITH  PEGGED  UIND  VECTOR 

THTAd)  - POTENTIAL  TEMPERATURE  OF  ITH  PEGGED  POINT 

NUMOBS  - NUMBER  OF  PEGGED  OBSERVATIONS 

PROC 


C 

C 

C 

C 

C 

C 

C 


COMMON  /DERIV/  DUdCC,  JCC)  .DVdCC.  JCC)  .DTdCC.  JCC) 

DUd.J)  - PARTIAL  DERIVATIVE  OF  ACCELERATION  RESIDUAL 

UITH  RESPECT  TO  TO  Ud.J) 

DVd.J)  - PARTIAL  DERIVATIVE  OF  ACCELERATION  RESIDUAL 

UITH  RESPECT  TO  TO  Vd.J) 

DTd.J)  - PARTIAL  DERIVATIVE  OF  TEMPERATURE  RESIDUAL 

UITH  RESPECT  TO  TO  THTAd. J) 
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c 

END 

MNSRCH 


C 

C 

C 

C 

C 

C 

END 

LOCAL 


1 

C 

C*^ 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

END 

SAVEM 

C-kK 


I 

END 


PROC 

COMMON  /MNSRCH/  RES ( 100) -ENERGY C 100) ,VDRSUM( 100) , 
TRESC 100) 

GLOBAL  RESIDUES  FOR  EACH  RELAXATION  STEP 


RES(.) 
TRES(.) 
VDRSUM( , 
ENERGY (, 


ACCELERATION  RESIDUE 

TEMPERATURE  RESIDUE 

SUM  SQUARE  OF  DERIVATIVES 

SUM  SQUARE  OF  SURFACE  PARALLEL  VELOCITY 

MAGNITUDES 


PROC 

COMMON  /LOCAL/  HD  1 ' 9KHD2i.'9J -ARCS) -EHO) 
THDO).euOYC9)-ULO)  -VLO)  .TH(9) 


ERO) , 


LOCAL  QUANTITIES 


HDK.) 
HD2(.) 
ARC . ) 

EN  ( . :■ 

ER  ( . ) 
THD ( . ) 
BUOYc.) 
UL  ( . ) 
VL(.> 

TH  ( . ) 


U-SLOPE  OF  TERRAIN 

V-SLOFE  OF  TERRAIN 

AREA  FACTOR  DUE  TO  MAPPED  GEOMETRY 

PROFILE  e;-:poneiit 

SQRT(4hEN+1) 

temperature  DERIVATIVE  FROM  PROFILE 
BUOYANCY 
LOCAL  U-MIND 
LOCAL  V-UIND 
LOCAL  TEMPERATURE 


PROC 

SAVED  FIELDS  OCCUR  AT  RELAliATIOil  STEP  NSAVE 
COMMON  /SAVEM/-  USAVEc'  ILL-  JLL) VSAVE'.'  ILL,  JLL) , 
TPSAVEi ILL-JLL) .NSAVE 
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D.3  SUBROUTINES  OF  MRC*EPAMS 


SUBROUTINE  ANALY2 
C 

INCLUDE  MESAGE 
C 

GO  TO  (20-30>40),  TASK 
C 

20  CALL  MIXLYR 
RETURN 
C 

30  CALL  UMDMGR 
RETURN 
C 

40  CONTINUE 
RETURN 
END 


SUBROUTINE  RPPLY 

RETURN 

END 

SUBROUTINE  CLSSTN(NSTftTN.X. Y. IDXSTfl.STflDST.STNMflX.DISTMN) 

C 

C* 

C*  CLSSTN  IDENTIFIES  THOSE  POINTS  FROM  A GIVEN  LIST  UHICH  LIE 

C*  INSIDE  A PRESCRIBED  CIRCLE. 

C* 

O INPUTS; 

C*  X(.)  - X COORDINATES  OF  INPUT  POINTS 

C*  Y(.)  - Y COORDINATES  OF  INPUT  POINTS 

C*  DSTMIN  - RADIUS  OF  SPECIFIED  CIRCLE 

C*  XPLACE  - CENTER  COORDINATES 

C*  YPLACE  - OF  SPECIFIED  CIRCLE 

C*  STNMAX  - NUMBER  OF  POINTS  IN  INPUT  LIST 

C* 

C*  OUTPUTS: 

C*  NSTATN  - NUMBER  OF  POINTS  LYING  INSIDE  SPECIFIED  CIRCLE 

C=K  IDXSTAC.)  - INDICES- OF  POINTS  LYING  INSIDE  CIRCLE. 

C*  ARRANGED  IN  ORDER  OF  INCREASING  DISTANCE  FROM 

C*  CENTER;  CLOSEST  POINT  IS  X( IDXSTA( 1 ) ) . Y( IDXSTA ( 1 ) ) 

C*  STADSTCD  - DISTANCE  BETUEEN  CENTER  AND  ITH  CLOSEST  POINT 

C* 

C )k]Ma<oloKK3tok’K>|(3K:K9loMoK>k:Mc<oK;(tHCIo|oK>Mo<cM(HoK>k3M(!4ok;K>|okiK’McK>lc(cM(3M<>K!K:k>l<9K>K>lc<ctclcK^ 

C 

INCLUDE  DATPRM 
INCLUDE  COORD 
C 
C 

DIMENSION  XCn.Yd).  IDXSTA  ( 1)  .STADSTC 1) 

C 

INTEGER  STNMAX 
C 

C**  DETERMINE  THE  CLOSEST  STATION  UITHIN  DISTANCE  DISTMN  AND  ORDER 
C**  STATIONS  IN  ASCENDING  ORDER  OF  DISTANCE 
C 

NSTATN  - 0 
XSOURS  ■ XPLACE 
YSOURS  ■ YPLACE 
N - STNMAX 
DO  100  I-l.N 

C**  CALCULATE  DISTANCE  FROM  RELEASE  TO  STATION 
D • SQRT((X(I)-XS0URS)>ioK2+(Y(I)-YS0URS)'.i«k2) 

IF  (D  .GT.  DISTMN)  GO  TO  100 
NSTATN  - NSTATN  +1 
IDXSTA (NSTATN)  - I 
STADST(NSTATN)  - D 
100  CONTINUE 

IF  (NSTATN  .LT.  2 ) GO  TO  120 
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DO  110  J-2.NSTftTH 
DO  no  I=2.NSTATN 

IF  (STflDST([-l)  .LE.  STADST(I))  GO  TO  110 
D - STADST(I) 

K • IDXSThCI) 

STADSTd)  » 3TADST(I-1> 

IDXSTA(I)  =■  IDXSTA(I-n 
STADST(l-n  » D 
IDXSTA(I-l)  =■  K 
110  CONTINUE 
120  RETURN 
END 


r 

! 


I 

1 


i 

i 

1 

I 


C0MPILER(DIAG-3) 

SUBROUTINE  DRIVRS 
C 

C* 

C*  SUBROUTINE  DR  IMPS  COMPARES  THE  DRIVING  PARAMETERS  GENUND.  DELQ. 

C*  T.  Z.  MTRBLK  DETERMINED  BY  DATANL  FOR  THIS  RUN  UITH  THE  DRIVING 

C*  PARAMETERS  OF  PREVIOUSLY  ARCHIVED  RUNS.  IF  THE  DRIVERS  FOR  A 
C*  PREVIOUS  RUN  AGREE  SUFFICIENTLY  UITH  THE  NEU  DRIV'ERS,  EXECUTION 
C*  OF  UINDEX  IS  SUPPRESSED. 

C* 

C 

INCLUDE  MRCHDR 
INCLUDE  INTLYZ 
INCLUDE  hFCIPF 
INCLUDE  FILES 

DATA  C0NST1/.2/,  C0NST2/.  17*45/.  C0NST3/1.5/ 

C 

C 

C*’K  DETERMINE  UHETHER  NEU  DRIVING  PARAMETERS  MATCH  AN 
Cit*  ARCHIVED  SET 

IFCRCOUNT.EQ.O)  GO  TO  200 
IF(NTST.EQ.l)  GO  TO  200 
VMAGl  • GENUNDC  l)-4':i'2  + GENUND':2)iet<2 
ANGLE  1 - ATAN2(GENUND(1) .GENUND(2) ) 

DO  100  I-l.RCOUNT 

C**  COMPARE  TERRAIN.  IF  DIFFERENT.  KEEP  SEARCHING 
IFIMTRBLK.NE.TCRBLKCI))  GO  TO  100 
C'*'*  COMPARE  BACKGROUND  UIND  MAGNITUDES 
VMAG2  - XlJIND(l)**2  + YU1ND(D*'»'2 
VDIFF  - ABS ( VMAGl- VMAG2) 

C;)**  IF  MAGNITUDES  DIFFER  BY  20  PER  CENT  OR  MORE.  KEEP  SEARCHING 
IFlVDIFF/VMAGl.GT.CONSTl)  GO  TO  100 
C**  COMPARE  BACKGROUND  UIND  DIRECTIONS 
ANGLE2  - ATAN2(XUIND(I).YUIND(I)) 

ANGDIF  ■ ABS(ANGLE1-ANGLE2) 

C**  IF  DIRECTIONS  DIFFER  BY  MORE  THAN  10  DEGREES  (.1745  RADIANS). 
C**  KEEP  SEARCHING 

IFCANGD'F .GT.C0NST2)  GO  TO  100 
c-KK  compare  buoyancy  drivers 

DLQDIF  - ABS(DELQ-DELTAQ(I)) 

DLTDIF  • DL0DIF=k1.06 

CK*  IF  BUOYANT  TEMPERATURE  DIFFEPENCE  EXCEEDS  1.5  DEGREES. 

KEEP  SEARCHING 

IF(DLTDIF.GT.C0NST3)  GO  TO  100 
C 

C**  ARCHIVED  DRIVERS  AGREE  UITH  NEU  DRIVERS: 

C:k*  URITE  out  matching  block  and  suppress  EXECUTION  OF  UINDEX 
ISAME  - I 

URITECXOTFIL. 1000)  ISAME 
IHIERC  - 0 
RETURN 
100  CONTINUE 
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c 

c 

c 


200  CONTINUE 

C-XJX  NONE  OF  ARCHIVED  DRIVERS  MATCH:  UPDATE  DIRECTORY  UITH  NEU  DRIVERS 
RCOUNT  = PCOLINT+l 
IF(RC0UNT.GT.25)  RC0IJNT=25 
I * RCOUNT 

MUINDU)  = GENLIND'n 
VUIHD(I)  = GENIJNDi2) 

DELTACM.  I)  = DELQ 
TERBLK(I)  = MTPBLK 
DO  150  J-1,3 
PTEMPd.J'j  = TPRuCJ'-i 
ZELEVd.J)  = ZPROij:i 
150  CONTINUE 

PARAMSa.l)  = ILE 
PARAMS(I.2:i  = ILU 
PhRAMSCI.S)  = JL!I 
PARAMS(I.4)  = JLS 
PARAMS(I,5'j  = IHIEPC 
PARAIISiKb)  = IRELha 
C 
C 

URITEi:v;OTFIL,2000)  RCOUNT 
RETURN 
C 

1000  FORMAT'.''/"  DRIVING  PARAMETERS  AGREE  UITH  THOSE  FOR  . 

1 • ARCHIVED  RUN  NUMBER  ’,12/'/) 

2000  FORMATC./"  DRIVERS  ARE  DIFFERENT  THAN  THOSE  OF  PREVIOUSLY  ’ 

1 . ’ARCHIVED  PUNS’/'  ’ ARCHIVE  NUMBER  FOR  THIS  RUN  <■  ’,13) 

C 

END 


SUBROUTINE  DTBM&R 
C 


INCLUDE  DATPRM 
INCLUDE  MESAGE 
INCLUDE  COORD 
INCLUDE  MRCIPF 
INCLUDE  MRCDAT 
INCLUDE  FILES 
C 

PARAMETER  DATBLK-1820 
DIMENSION  lYIYKDATBLK) 
EQUIVALENCE  ( lYIYI ( 1) .NUANUM) 
C 

C**  INITIALIZE: 

DO  10  I-l.DATBLK 
lYIYKI)  - 0 
10  CONTINUE 

IF(IDAT(1),EQ.0) 
IF(IDAT(2).EQ.0) 
IF(IDAT(3).EQ.0) 

IF(IDAT(4) .EQ.0) 

IF(IDAT(5) .EQ.0) 


DATA  SEARCH  COMPLETE 
CALL  DATA  ANALYSIS  ROUTINE 
CALL  DATANL 


RETURN 

END 


C 

C 

C** 

C** 

c 

c 


CALL  MRCUA 
CALL  MRCSFC 
CALL  MRCGUC 
CALL  MESMOD 
CALL  MRCNET 
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1 


I 

I 


SUBROUTINE  HEC 

RETURN 

END 

COMPILER  (DIAG-S) 

SUBROUTINE  GUCDTA (GRID. RUN. FLAG) 

INCLUDE  GLCPPR 

INCLUDE  FILES 

INCLUDE  GBUFER 

INCLUDE  GUDATA 

INTEGER  FLAG. GRID. RUN. ZS(4) 

INTEGER  A(5700) .BC4.6).X.Y 
INTEGER  ADRES. BLOCK- 
INTEGER  OCT/0777777000000/ 

DATA  P /1O0000.. 85000.. 70000.. 50000./ 

DATA  ZS/nO.  1460.3010.5570/ 

IF CRUN.EO. BLOCK)  GO  TO  50 
BLOCK  = RUN 

CALL  BLKIM(5700,A( 1) .BLOCK.GUCFIL. I) 

50  CONTINUE 

ADRES  = GTIME  - ANLTIM(RUN) 

IFCADRES.LT.O)  GO  TO  800 
IF(ADRES.GT.24)  ADRES  = ADRES  - 76 
IF(ADRES.GT. 13)  GO  TO  800 
ADRES  = jOO'^'ADRES  + IZ^iCGRID-l) 

DO  150  J = 1.6 
DO  100  K = 1.2 
L = K+K 

M » 2t<(J-l)  + ADRES 
X = FLD(18.  la.Aa-l+K)) 

Y = FLD(0. 13.A(M+Kj) 

IF (X.GT. 32768)  X = OR (X, OCT) 

IF  cY.  GT . 32768 ) Y = OP  ('('-OCT) 

B(L-l.J)  = X 
BtL.J)  » Y 
100  CCNTIMUE 
150  CONTINUE 

DO  200  L = 1.4 
U(L)  = BiL. 

VCL)  = B(L.2) 

Z(L)  = B';L.4)  + ZSfL) 

T(L)  = B^L.5) 

Q(L)  » B(L.6) 

Q(L)  =■  T(L)  - QCL) 

IF(a(L) .LT.0.8)  QCL)  • 0.0 

IFtQ(L) .GT.0.O.AND.P(L) .GT.0.0)  OCL)  ■ 62.2i<SATVP(Q(L))/P(L) 
Q(L)  - Q(L)/(1.  - 0.61>*:Q(L)) 

200  CONTINUE 
FLAG  - 1 

IF(RUN.EQ.41)  FLAG  - 0 
RETURN 
300  CONTINUE 

URITE(6.900) 

STOP 

900  FOPMAT(  • IMPROPER  GLC  TIME  OP  BLOCK’) 

END 


4 


( 


i 

! 


! 


1 

1 


D-30 


C0MPILER(DIPiG-3) 

SUBROUTINE  SECDTA (TIME. STN. FLAG) 

INCLUDE  SFOBPR 
INCLUDE  FILES 

C THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  E>CTRACT  SURFACE  OBSERVATION  DATA 
Ci<*  FROM  THE  DATA  BASE 
INCLUDE  SFDATA 

. INCLUDE  SBUFER.LIST 

INTEGER  A(SBLK) 

INTEGER  JUNK/-1/.RUN.FLAG.STN 

i INTEGER  BLOCK. DAY. HOUR. NEUBLK, TIME 

4 INTEGER  ADRES.PRVSTN.PRVTIM 

^ DATA  BLOCK  .-99999/ 

i C FIND  THE  ADDRESS  FOR  THE  DATA  CORRESPONDING  TO  THE  GIVEN  STATION  AND 

i C TIME  . IF  THIS  ADDRESS  HAS  NOT  BEEN  SET  (IT  IS  ZERO)  . RETURN  TO 

i C THE  CALLING  PROGRAM  . OTHERUISE  . FIND  J , UHERE  THE  FIRST  iJORD  OF 

' C THE  11-UOPD  LOGICAL  RECORD  IS  THE  J-TH  ELEMENT  IN  ARRAY  A . 

IF(TIME.NE.PRVTIM)  GO  TO  2 
IF(STN.NE.PRVSTN)  GO  TO  10 
J • ADRES 

IF(J.NE.0)  GO  TO  12 
PRVSTN  - 0 
FLAG  = 0 
RETURN 

2 CONTINUE  i 

PRVTIM  - TIME 
HOUR  = TIME  - DBAST3 
IF(HOUR,GE.O)  GO  TO  5 
HOUR  =•  TIME  - DBAST2 
IF(HOUR.GE.0)  GO  TO  5 
HOUR  • Tir-E  - DBASTl 
5 CONTINUE 

DAY  » HOUP.'TO0 
HOUR  - HOUR  - 76>KDAY 
NEUBLK  - HOUR/RS 
RUN  - HOUR  - RS>t<NEUBLK 
IF (NEUBLK. EQ. BLOCK)  GO  TO  10 
BLOCK  • NEUBLK 

CALL  BLKIN(SBLK.A.BL0CK+2.SFCFIL. I) 

10  CONTINUE 

J - 11*(RUHh<SS  + STM  - 1)  + 1 
12  CONTINUE 

ADRES  - FLD(9. 15.A(J)) 

IF(ADRES.EQ.0)  GO  TO  14 
PRVSTN  - STN 
FLAG  - FLD(0.9.A(J)) 

GO  TO  30 
14  CONTINUE 
PRVSTN  • 0 
FLAG  - FLD(5..4.A(J)) 
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30  CONTINUE 

STIME  = FLD(24.6-fl(J+l.'i) 

1 F0RMAT(2I6) 

C'K'K  ETURN  TO  THE  CALLING  PROGRAM  IF  THE  VALUE  OF  FLAG  IS  ZERO 
IF  (FLAG.EO.O)  RETURN 

C EXTRACT  THE  DATA  IN  THE  (SURFACE)  MANDATORY  UOPD  1 
CALL  TESTFD(0. l2-A(J+2) . INDI) 

UD  • INDI 

CALL  TESTFDC 12, 12.ACJ+2) , INDI) 

IF  (INDI.EQ.JUMK)  INDI  =•  -10 
US  « FLOAT( INDI).10. 

CALL  TESTFD(24. 12.h(J+2)  . INDI) 

IF  (IHDI.EO.O)  INDI  = -10 
UG  = FL0AT(INDI)/10. 

C EXTRACT  THE  DATA  IN  THE  (SURFACE)  MANDATORY  UORD  2 
CAi.L  TE3TFD(0,  18,A(J+3) , INDI) 

IF  ( INDI. EQ. JUNK)  INDI  = -10 
SLP  = 10 « INDI 

CALL  TESTFD( 18. 18,A(J+3) .BT) 

IF  (BT.EQ.O)  BT  = JUNK 

C EXTRACT  THE  DATA  IN  THE  (SURFACE)  MANDATORY  UORD  3 
CALL  TESTFtKO. 13-A(J+4), INDI) 

IF  1.  INDI.EQ.JUMK)  INDI  = -10 
TS  = FLOATt.  INDI),'10. 

CALL  TESTFD( 18, 18.A(J+4) , INDI) 

IF  (.INDI.EQ.  JUNK)  INDI  » -10 
TD  =■  FLOATdNDD.'lO. 

C EXTRACT  THE  DATA  IN  THE  (SURFACE)  MANDATORY  UORD  4 
CALL  TESTFDnJ.  13-A'  J+5'i  .INDI) 

IF  ( INDI .EO. JUNK)  INDI  = -100 
AS  = FLOAT  1 INDI  - -100. 

CALL  TESTFD-  13-  lS.A(J+5) , INDI) 

PA  =■  INDI 

Cw  XTRACT  THE  DATA  IN  THE  -'SUPFACE)  MANDATORY  UORD  5 
CALL  TESTFD-  0. to, H(J+b)  ..TSC) 

CALL  TESTFD - to,b. A i J+6) ,PU) 

CALL  ■^ES^FD-  18. 18.A(  .1+6) -VV) 

C EXTPhCT  THE  DATA  IN  THE  (SURFACE)  MANDATORY  UORD  6 TEST  THAT  THERE 
PE  CODED  DATA  ON  THE  PRESENT  UEATHER 
IF  (A(J+r) .NE.Oj  GO  TO  15 
DO  20  I • 1,4 
20  UU(I)  > JUNK 
GO  TO  16 

15  DO  25  I = 1.4 

CALL  TESTFD I IABS( I - 1 ) +9, 9, A ( J+D , UU( I) ) 

25  CONTINUE 

C E.  TRACT  THE  DATA  IN  THE  (SURFACE)  MANDATORY  UORD  3 

16  CALL  TESTFD(6,6,A(J+9).NH) 

CALL.  TESTFD  ( 1 2 , 6 , A ( J+9 "I , CL ) 
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CALL  TESTFD(lS,b.A(J+9).H) 

CALL  TESTFr'i:24,b,A(J+9'/.CM) 

CALL  TESTFDC30.b-A(J+9),CH) 

C EXTRACT  THE  DATA  IH  THE  (SURFACE)  MANDATORY  LORD  9 
CALL  TESTED (6 . 6. A ( J+10) , HS) 

CALL  TESTFD(12.b,A(J+10).K) 

CALL  TESTFD(13.6-hCJ+10),CT) 

CALL  TESTFD(24. 12.A(J+10) ,HSHS) 

RETURN 
END 


C0MPILEP(riirHG=3) 

SUBROUTINE  UhDATACSTN, RUN, FLAG) 

UITEGEP  A (5000) 

INCLUDE  LIAOBPR 

INCLUDE  OBUFER 

INCLUDE  FILES 

INCLUDE  TDATA 

INCLUDE  IJDATA 

INCLUDE  TRPDTA 

REAL  DP (40), D (40) -S (40) 

REAL  ANGLE, OFFSET,PC,RADPDG 
REAL  GANA. PSTD (2) , TSTD(2) , ZSTD 
INTEGER  BLOCK, NEUBLK 
INTEGER  STN.RIJN 
INTEGER  TADS.UADG 
INTEGER  FLAG 

EOU I VALENC  E DR , OS ) . ( D , UU''  . ( S , VU) 

DATA  PO,PADPDG  ••100000.  .0.0ir45329252/ 
DATA  GAt'lA.  PSTD.  TSTD, 

--K  .'.0065.  101325.  ,20'380. , 233.15,216.65, 

DATA  LUNSTA  0 . 0 .i>4  1 G I 24f\i, 

C E.XTPACT  DATA 

NEU'SLK  = TADRES'.STN, PUN)  .10000 
IF (HELIBLK.EQ. BLOCK)  GO  TO  50 
BLOCK  = NEyBLK 

CALL  BLKUU5000,Ai  1 ) . BLOCK . UAF  ILE,  ISTAT) 
50  CONTINUE 

NEUBLK  = NEUBLK K 10000 
TADS  = TADPES (STN.RIJN)  + 1 - NEUBLK 
UADS  • UADRESiSTN.FUN)  + 1 - NEUBLK 
FLAG  = FLD  1.2,2. A ( TADS- 1) ) 

IF' FLD(0.6.h>.UADS)  ' .EQ.O)  GO  TO  60 
D(l)  = 0.0 
S ( 1 .'  -0.0 
ZU>  r.'  - UASTNZ(STN) 
kma:-;  - KriA. : + i 
GO  TO  TO 
60  CONTINUE 

FLAG  • flag -^4 
70  CONTINUE 

IF(  ItlA'.K.GT.AO)  IMAX  • 40 

CALL  :;TPCUA'.A(TADS),PS.  IMAX.40,FLAG.  d 

IF(  ItlAX.LE.  1)  GO  TO  SOO 

IF(KI;AX.GT.40>  KMAX  - 40 

CALL  'XTRCUh(A(UADS)  .UIJ.KMAX,40.FLAG.2) 

!F(KMAX.LE. 1)  GO  TO  800 

NHAX  - FLD( 13.9,A(TADS-1))  / 3 

IF(NnAX.EC!.0;>  GO  TO  SO 

IF', UMAX . GT . 3 ) Hf  1AX  ■ 3 

TADS  - TADS  + FLD(9.9,A(TADS-I) ) - 1 

CALL  ’XTRCUAIAITADS) .PT,HMAX,3.FLAG.3) 


ZSTD 

11476. 
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30  CONTINUE 

C**  EVALUATE  UIND  COMPONENTS  RELATIVE  TO  EML  UTM  GRID 
OFFSET  » UASTNA(STN) 

DO  100  K • l.KMAX. 

ANGLE  = RADPDG>K(D(K)  + OFFSET) 

UU(K)  - -S(K)*SIN(ANGLE) 

VU(K)  =-S(i<).i:COS  (ANGLE) 

100  CONTINUE 

C EVALUATE  PRESSURE  LEVEL  DATA 

IF(FLD(32. l.FLAG) .NE.0)  GO  TO  135 
K - 2 

2S(1)  = UASTNZ(STN) 

105  CONTINUE 

IF(DP(K) .LT.O)  GO  TO  110 

D2  » b2.2=KSAT’VP(TS(K)  - DPCK))  / PS(K) 

DZ  » DZ  / (l.-0.61=KDZ) 

TV(K)  = TS(K)  (1.0  + 0.61  DZ) 

GO  TO  115 
110  CONTINUE 

TV(K)  • TS(K) 

115  CONTINUE 

IF(ZS(K) .GT.0.)  GO  TO  120 
K - K + 1 

GO  TO  105 
120  CONTINUE 

IF(K.EQ.2)  GO  TO  130 
DO  125  I ' K.3.-1 

DELTA(I)  • ALOG(PS(I)  / PSd-D)  ALOG(TV(I)  TVd-D) 
ZS(I-l)  - ZS(I)  + DELTA(I)  * (TV(I)  - TV(I-l))  / COMSTA 
125  CONTINUE 
130  CONTINUE 

DZ  - 2S(2)  - 2S(1) 

TS(l)  ■ TS(2)  + GAMA  ;i<  DZ 
DP(l)  » DP(2) 

PS(1)  • PS(2)  * (TS(1)  / TS(2))'t<;K(C0NSTA  / GAMA) 

135  CONTINUE 
K - 2 

DZU  - (2U(2)  - ZUd)) 

DO  400  I - 1. IMAX 

IF(DP(I).LT.0.)  GO  TO  140 

QS(I)  • 62.2’t<SATVP(TS(I)  - DP(I))/PS(I) 

QS(I)  ■ QS(I)/(1.  - 0.61;kQS(I)) 

TV(I)  - (1.  + 0.61*QS(I))!kTS(I) 

GO  TO  160 
140  CONTINUE 
QS(I)  - 0.0 
TV(I)  - TS(I) 

160  CONTINUE 

TA(I)  - TS(I)*(PO/PS(I))**0.296 


IF(I.EO.l)  GO  TO  300 

IFCTv'd)  .EQ.rv'd-D)  GO  TO  208  ; 

I'ELTi^dj  = ALOG(PSd).'PSd-n 'i^'PiLOG(P/d).''TVd-n  ) 

IF  (ZSd)  .LT.O.  ■)  i. 

IZSdJ  = ZSd-1.'  - DELTA d)-K(TVd:i  - TV'd- 1)  J/'COHSTft  _ ) 

GO  TO  300  * ; 

200  CONTIHUE  f 

DELThd)  = 0.0 

IF  (ZSd). LT.O.)  ' j 

IZSCI)  = ZSd-1)  - rv'd)'WLOGCPSd).-PSd-l) )- COIISTh  f 

300  CONTIHUE  ; 

DZ  • ZU(K)  - ZSd)  ’ 

IFCDZ)  320. 349..  360  i' 

320  CONTINUE 

IFCK.GE.KWX)  GO  TO  500 
K = K+1 

DZ'J  =■  ZU(K)  - Zi..Kk-l)  ' 

GO  TO  300 
340  CONTINUE 

USCI)  = UljJ'.K) 

VSd)  » VU(tO 
GO  TO  3i 0 
360  CONTINUE 
DZ  = DZ-DZU 

USd)  = UU(K)  - DZ'i<(IJlJ(K)  - UU(K-l)) 

VSd)  - VU(K)  - DZikiiVyiJcK)  - VU(K-D)  ' 

320  CONTINUE 

IF(PSd)  .LT.PSTD'Z))  GO  TO  380 

PDCI)  * ZSd)  - TSTDd)*d.a-';PSd)-'PSTDd))«(GrHMA/CONSTfl))/Gflrift  ‘ 

GO  TO  400  * , 

330  CONTINUE  ' 

PDd)  = ZSi.I)  - ZSTD  + TSTD(2).-i'AL0G(PSd)^'PSTD(2)  ).-COMSTA 
400  continue 
GO  TO  600 
500  CONTINUE 
I MAX  = i-1 
690  CONTINUE 

IFMtMAX.EQ.O)  GO  TO  760 

I = ! i 

K “ I 

610  CONTINUE  ' 

S'  = K 1 ; 

!.-u;  .QT.  IMAX)  GO  TO  720  \ 

IF(F"3(K'  - PT(  1 ,0  640.620.610  ' 

620  CONTINUE 

QTCT'  » QS(k)  i 

TBd)  -TVfK) 

TId)  » TA(K)  j 

TDCI)  » PD(K) 

ZTd)  • ZS(K)  1 


m 


1 

i 


630 


640 


650 

660 

j 

1 

1 

1 

I 670 

i 680 


690 


700 


IF((UT(I) .LT.0.0) .OR. CVTCn .LT.0.0))  GO  TO  630 
PtNGLE  - R«DPDG=t<(UT(I)  + OFFSET) 

UT(I)  - -VT(I)  * SIN(ANGLE) 

VT(I)  » -VT(I)  ■*  COS(ftNGLE) 

US(K)  • UT(I) 

VS(K)  • VT(I) 

GO  TO  710 
CONTINUE 
UT(I)  » US(K) 

VT(I)  - VS(K) 

GO  TO  710 
CONTINUE 

IF(QT(I) .LT.0.)  GO  TO  650 

QT(I)  - 62.2  * SAT\/P(TT(n  - QT(I))  / PT(I) 

QT(I)  - QT(I)  / (1.0-0.61*QT(r)) 

TB(I)  • (1.0+0.61=KQT(I))  * TT(I) 

GO  TO  660 
CONTINUE 
QTd)  - 0.0 

TO (I)  » TT(I) 

CONTINUE 

THI)  - TT(I)  * (PO/PT(I))  **  0.286 
IF(TB(I) .EQ.TV(K-l))  GO  TO  670 

DZU  • PiLOG(PTi;i)/PS(K-l))  / PLOGCTBCI)  / TV(K-l)) 

ZT(I)  • ZS(K-l)  - DZU  * (TBd)  - TV(K-l))  / COUST0 

GO  TO  680 

CONTINUE 

ZTd)  - ZSd-I)  - TBd)  * ftLOG(PTd)  / PS(K-l))  CONSTft 
CONTINUE 

IF((UTd). LT.0.0). OR. (VTdJ.LT.O.O))  GO  TO  690 
ANGLE  - RADPDG  * (UTCI)  + OFFSET) 

UTd)  • -VTd)  * SIN(ANGLE) 

VTCI)  - -VTd)  * COS(ANGLE) 

GO  TO  700 
CONTINUE 

DZ  - (ZTd)  - ZS(K-l))  / (ZS(K)  - ZS(K-l)) 

UTd)  > US(K-l)  + (US(K)  ~ US(K-l))  * DZ 

VTd)  - VS(K-l)  + (VS(K)  - VS(K-l))  >•<  DZ 

CONT.INUE 

IMAX  » IMAX  + 1 

IFdMAX.GT.40)  IMAX  - 40 

TADS  - IMAX  - K 

DO  705  J - l.TADS 

PSdMAX+l-J)  - PSdMAX-J) 


OSdMAX+l-J) 

TSCimX+l-J) 

ZSCIMAX+l-J) 

TVdMAX+l-J) 


OS  Cl MAX- J) 
TSCIMAX-J) 
ZSCIMAX-J) 
TVCIMAX-J) 


D-37 


TA(IMAX+1-J)  > TAamX-J) 
USCU'IAX+l-J)  = US(IMAX-J> 
VS(IMAX+1-J)  = VS C I MAX- J) 

DELTA t IMAX+l-J)  = DELTA C IMAX-J) 
PD(IMAX+1-J)  = PD( IMAX-J) 


705  CONTINUE 

PS(J) 

PTU) 

OS(J) 

= 

QTu) 

TS(J) 

s 

TT(I) 

Z3(J) 

a 

ZT(I) 

TV(J) 

s 

TB  ( I ) 

TACJ) 

= 

Til.  I) 

U3(J) 

= 

UT<;n 

VS(J) 

= 

VTU) 

DELTA CJ) 

= DZl 

PIU-J) 

a 

TD  (.  i ) 

no  COMTIMUE 
! = I + 1 

IFC I .LE.MMAX)  GO  TO  ElO 
Go  TO  TbU 
720  COUTIMIJE 

ftMAX  =1-1 
7G0  CONTINUE 
RETijRli 

eeo  cciiTiMUE 

C INADECUhTE  data.  ELIMINATE  OB  FROM  INVENTORY 
L'RITE'lb.EOO)  FLAG.  IMAX.  KMAX-  TADS.  WADS. 

■t'  hvTADS-'.  j .A'ThDS)  .h(UADS-1  ' .A(UhDS) 

900  FORMATC  FL.  IMX.KMX.TAD.WAD' .SIIO-' 

•t=  • H(T-ri  . Ai.T)  . Aa.J-1) . A(IJ)  ■ .4i;2.X012)  "I 

FLAG  = 0 

TLVLMX''STN,p!JN)  = 0 

wlvlm::(stn..pun)  = o 

RETURN 

end 
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^UNCTION  IDIFTMCI.J) 

Ml  = M0D(I. 100) 

M2  - MOD(J.100) 

N1  - 1/100 
N2  » J/100 

IDIFTM  - (N1-N2)=K24  + (M1-M2) 

RETURN 

END 

FUNCTION  INTRP(>?.Y.N.XO) 

C 

C'H 

C>I!  ROUTINE  INTRP  ( INTERPOLATION)  RETURNS  A VALUE  YO  INTERPOLATED 
C!K  FROM  A TABLE  OF  N VALUES  X(.).Y(.)  USING  AN  ARGUMENT  XO.  THE 
C*  TABLE  ARGUMENTS  X(.)  MUST  BE  MONOTONIC  (INCREASINu  OR  DECREASING) 
C* 

DIMENSION  X(N).  YCN) 

DETERMINE  2 TABLE  ARGUMENTS  CLOSEST  TO  ):0 
N1  = N-1 

C»=K  X(.)  IS  DECREASING 

C>i«K  IF  X(.)  IS  DECREASING.  BRANCH  TO  25 

IF(X(1) ,GT.X(2))  GO  TO  25 

C**  X(.)  IS  INCREASING 

DO  10  1-2. N1 
JJ  = I 

IF(X0.LE.X(JJ))  GO  TO  50 
10  CONTINUE 

JJ  - N 
GO  TO  50 
C 

25  CONTINUE 

DO  30  1=2. N1 
JJ  - I 

IF(X0.GE.X(JJ))  GO  TO  50 
30  CONTINUE 

JJ  = N 
C 

50  J - JJ-1 

C-K*  THE  TUO  ARGUMENTS  CLOSEST  TO  XO  ARE  X(J)  AND  X(JJ) 

YO  • ((Y(JJ)-Y(J))/(X(JJ)-X(J)))'K(X0-X(J))+Y(J) 

INTRP  » Y0 
C 

RETURN 

FND 
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SUBROUTINE  MESnoO 


THIS  ROUTINE  OBTAINS  UNITE  SANDS  MESOMODEL  DATA  STORED 
ON  FASTPAND  FILES 

PARAMETER  IIMEiUF=9Sl 
INCLUDE  MESAbE 

Include  files 
INCLUDE  COOPD 

include  datppm 

INCLUDE  MPCDAT 
INCLUDE  r-FCIPF 
INCLUDE  SCRTCH 


dimension  DBUFCMMBUF),  INDEMtNMMMJ 
DIMENSION  INDEXTCNMITO..  .■.TMMf.NMrDO . YTMrUNMMX) 

D IMENS ION  RMMVAR (LAYERS. NMMDL  7 j 
EQIJ I VALENCE  ( RMI IVAP  ( 1 , 1 . 1 > . HMM  ( 1 . H ) 

DATA  XCOPM, YCORN  /300. 0.3670.0.' 

INITIALIZE  FOR  ACQUISTiON  OF  TRANSPORT  LAYER  DATA 
IFILE  =•  &PIDF2 
LAYER  = 2 

CALL  HEADER  FOP  MESO  DATA  TO  CORRELATE  TIME  UITH  FASTRAND  ADDRESS 
DUMtl','  AT  PRESENT 


I RIJN  = 1 

CALCULATE  NMMX  INDICES  PEPPESENTING  MESO  GRID  POINTS  CLOSE  TO 
YPLhCE . YPLACE 

START  BY  DETERMINING  CLOSEST  MESO  GRID  POINT  UHICH  IS  SU  OF 
'J  PLACE  . ! PLACE!' 

! = '!  PLACE-!  EOFN'’  5.0  1 

J = ' JPLACE- .’CCrN''  -5.0  + I 


IFd.GT.Sl.OP.  :.L“.Ji  GO  TO  3U16 
I F ' J . G T . ^ 1 . b P . j . L . 'J  ' 'j  0 TO  3 1 “M  b 
IF  • I . G7.  Z?.!  I = ! - 1 
IF'I.GT.29:  ;--l 
IFiJ.LT.3'  J = j-r; 

IF ' J . LT. 3 I J = j-1 


DETERMINE  INDICES  CF  GRID  POINTS  IN  3-BY-3 
'd.J' 

DO  EO  L=1.3 
DO  50  i'=!.3 
M = k+i-L-lMt-i 
II  ’ I-t-'K-n 
JJ  = J-i!l.-D 

INDEXT(M)  = II  + (JJ-l):f31 
XTMrur-D  = XCOPN+(  II-lYt-E 
YTMIKM)  " iCOPN-bJJri'.S 
CONTINUE 


SOU APE  UITH  3U  COPMEP 


V*  't  ■ 


c 

CALL  CLSSTNCNSTATN.XTMM.YTm, IDXSTA.STADST.NMMX. 100.0) 
DO  55  L-l.NMMX 
K • ID)s'STA(L-) 

INDEX(L)  > INDEXT(K) 

XGRrm(L)  » XTMMCK) 

YGRDmcL)  - YTm(K) 

RMDIST(L)  • STADST(L) 

55  CONTINUE 
C 
C 

C=K*  CALL  IN  ELEVATION  DATA  AND  LOAD  ZGRDMM 
CALL  BLKIN(MMBUF.DBUF(1),  l.TRRNFL.  IST3) 

C 

DO  bO  J«l,Nmx 
K » INDEX(J) 

bO  ZGRDMM(J)  =•  DBUF(K) 

C 

C 

C 

CK-k  SET  SUITCH  FOR  PROPER  LAYER  ACQUISITION 
C**  ONLY  ONE  LAtER  PRESENTLY  USED 
ISU-1 

100  CONTINUE 
C 

C**  CALL  IN  ^ESO  DATA  AND  LOAD  VARIABLES 
NBLK  - IMDT(4)-1 
DO  110  IJK»1.7 
NBLK  - NBLK+1 

CALL  BLKIN(MMBUF.DBUF( 1) .NBLK. IFILE. ISTS) 

DO  105  J=l.NMriX 
K - INDEX(J) 

105  RMMVARCLAVER.J. UK)  •DBUFCK) 

110  CONTINUE 

DO  200  J - 1-NrtlX 

DUn  - . 70?  10678-K(AV/ri( LAYER. J)+A'./N (LAYER. J)) 

AVN (LAVER.  J)  • . 707 10678=«(AVH (LAYER - J)  -AV^KLA^ER.  J) ) 
AVM(LAYER.J)  - DUM 

DUM  « . 707 1 067S*: ( AVM  1( LAYER. J)+hVN1(LA'VER.J)) 

AVN  1 1 LAVER,  J)  707  10678'K( AVN  1 (LAVER.  J) -AVT11  (LAYER . J) ) 
hV:-U(LAVER.J)  - DUN 
200  CONTINUE 
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o;  o DO  <~i  r» 


L • LAYER 

UR  ITE  (KOTF IL . 2000)  ( I - XCRDhtir  I ) , YGPI'nMi:  I ) . ZGPPMrK  I ) - HMMCL,  I ) . 

1 AVniL. I) ,hVN(L, I) ,AVH1 (L. I) ,AVN1 (L, D . 

2 i = i-hmm:';) 

■k*  CHECK  UHETHER  SURFACE  LA\ER  IS  DESIRED 
IFt ISU. EO. I)  RETURN 
ISU  = 1 

IFILE  ■ GRIDFl 
LAYER  » 1 
GO  TO  100 

1416  NriMMUM  = 0 

URITECXOTFIL-oOOO) 

3000  FORMATC'  COORDINATES  NOT  IN  lESO  GRID  REGION  ') 

2000  FORMATC'l  MESO  DATA’/-  TE.’GPID  PO INT’ . T20 . ’ UTH  X’.TSO-'UTM  Y' . 

1 T40 , ’ ELEVAT I ON  ’ . T53 . ‘ Hr-lII ' . TS6 . ’ AVM' , TT8 . ’ A'.'N  ’ . TS9 . ’ AW  1 ' , T 1 00 

2 ’ A VN 1 ' . T 1 1 0 , AVUE  ’ . T 1 27  • ' AWE : ’ - ' 

3 (Tie, I2,Tir,F7. l.T27,F3. 1 , T41 ,F3 . I . T5 1 .F3 . 1,T63.F9. 1,T76,F8. 1 

4 T87.F8. 1,T98.F8. 1)> 

RETURN 

END 


C0MPILERCDIAG=>3) 

SUBROUTINE  MRCGUC 
C 

C**  THIS  SUBROUTINE  SEARCHES  THE  GLOBAL  UEATHER  CENTRAL  DATA 
C'X*  SETS  FOR  DATA  AT  FOUR  GRID  POINTS  AT  PREDICTION  TIMES  CLOSE 

Cm<)K  TO  THE  UPPER.  A IP  OBSERVATION  TIME  AND  SIMULATION  TIME 

C 

INCLUDE  DATPRM 
INCLUDE  hESAGE 
INCLUDE  FILES 
INCLUDE  GLJDATA 
INCLUDE  SCRTCH 
INCLUDE  GBUFER 
INCLUDE  COORD 
INCLUDE  MRCDAT 
C 

INTEGER  GUCBLK 
DATA  CRITGU/212. 13/ 

C 

C 

GUCBLK  - r-KBLKG+l 
C 

C-K*  roll  in  GUC  HEADER  BLOCK 
90  CONTINUE 

GUCBLK =GUCBLK-1 

IF(GUCBLK.LE.0)  GO  TO  7000 

CALL  BLK IN (GPTS. GR IDX( 1 ) . GUCBLK . GUCOBF, ISTS) 

C 

C**  find  closest  four  GUC  GRID  POINTS 

CALL  CLSSTN ( NSTATN , GR I DX. GR I DY, I DXSTA , STADST, GPDMAX. CR I TGU) 
IF(NSTATN.GE.4)  NSTATN =4 
IFCNSTATN.LE.0)  GO  TO  90 
C 

C^;k  nearby  STATIONS  EXIST 
200  CONTINUE 

K-  RUNMAX+1 
210  CONTINUE 
K-K-1 

IF(K.LT. n GO  TO  90 
IF(ANLTIM(K) .LE.O)  GO  TO  210 
CH<*  TIME  =■  SIMULATION  TIME 
C-K*  ANLTIMCK)  = ANALYSIS  TIME  FOR  GUC  PUN  K 
C-'K*  COMPUTE  TIME-ANLTIM(K) 

M-IDIFTMCTIME^ANLTIMiK:') 

C**  IF  M.LT.5,  RUN  K ANALYSIS  TIME  IS  TOO  RECENT 
C;k*  seek  older  GUC  TIME 
IFCM.LT.S)  GO  TO  210 
C-!«»  IF  M.GT.18,  GUC  DATA  IS  TOO  OLD 
IFCM.GT. 18)  GO  TO  90 

C**  IF  NO  UA  DATA  EXISTS.  GUC  UPDATE  IS  POINTLESS 
Cw  GET  GUC  DATA  AT  Sir-HLATION  ONLY 
IF(NUANUM.EQ,0)  GO  TO  240 
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r 


C**  SET  ITP  AND  GTIME  FOR  ACOU 13 ITIOM  OF  GUC  DATA  AT  UA  TIME 
ITR  = 1 

GTIME  = UPTIME'.  i;> 
i..jpiTE';::oTFiL,  looo)  gtime 
GO  TO  2S0 

Ci'^K  SET  ITP  AMI'  GTIME  FOR  ACOUISITIOH  OF  Gl-JC  TATA  AT  SIMULATION  TIME 


W • ••  *11  I II  I*,-  W I 4 • 'W  > I . W 4 • 4 Wf  I 'JV. I fT  n I A • (W  « 4 Wl  I • 4 I _ 

24Q  ITP  = 2 ‘ 

GTIME  ’ TIME  ! 

WRITE'.MOTFIL  . 1001)  GTU:E  ' 

250  CONTINUE  I 

C 

C'k:k  INITIALIZE  COUNTERS  • 


Ci'*  L COUNTS  GUC  STATIONS  TPIEP 
C:k.K  JN  COUNTS  GUC  STATIONS  ACCEPTED 
L^O 
JN-O 

200  CONTINUE 
L=L+1 

C*-*  IF  STATIONS  APE  EXHAUSTED.  SETTLE  FOP  'JHAT  'I'OU  GOT 
IF'L.GT.NSTATN''  GO  TO  310 
I = ir'KSTAfL> 

C OBTAIN  RELEVANT  GUC  DATA 

CALL  GUCDTA',  I .GPDBLKO;;  . IFLAG) 

Cr-K  IF  E'hTA  is  incomplete.  SMP  IT 
IFnFLAG.EQ.O)  GO  TO  260 
Ct-:*^  SUMP  COUNTEP 

jn=.;m+i 

C t'.K  LOAD  DATA 

IGGIIIJIKITR,.  JN)=I 
GDISTi' ITR.  JU)  = STADST'L) 

I'GPI’i  I'^P.  JN  I =GPIDK<,  I) 

MGF  D ( I TP . JN  ' =GP  I DT’',  [ ) 

ZGPD I ~P . j N ' ='0 . 0 
1 r Lnb'j  ' I ( P . JN  J = I FL  A'j 
GUTIME' ITP. JM) =gtime 
DO  300  13=1.4 
PGUi;  IS.  ITP.  JN.'i  =P'  IS' 

OGUds.  :"F.ji'i'='?i  IS' 

TGU'  IS . ITP . JN) =T  C IS ' 

UGU'!  IS.  I TP..  JN  ' =ij ''  IS  ' 

VGU'.'is.  JIM  =vn3 ' 

Z2GU'  IS.  ITP. .J'M  = 2’  IS) 

302  CONTINUE 


C fn  PRINT  DATA 


o o o o o 


L)RITE(XOTFIL-90O2)GUCBLK.K.  I.GRIDXC  I)  .GRIDYC  I)  .STflDST(L)  .TIME, 
1 HNLTiri(K),GTIME 
lJRITEi:XOTFIL,9004) 

DO  305  1=1,4 

lJRITE(KOTF!L,9O05>I.P(n,Q(n.T(I),U(l),V(I),Z(l) 

305  CONTINUE 


IF  LESS  THAN  NGUX  STATIONS  FOUND,  KEEP  LOOKING 
IF(JN,LT.MGUX)  GO  TO  260 
310  CONTINUE 

NGUNUM(ITR)=JN 
IFdTR.EQ.  1)  GO  TO  240 


URITE(XOTFIL,9000) 

RETURN 

C 

7000  CONTINUE 

lJRITEtXOTFIL.9000) 

URITE(X0TFIL,9010) 

RETURN 

C 

1000  FORMATCIGUC  DATA  FOR  GUC  ANAL'r’SIS  TIME»',  IS) 

1001  FORMATC'IGIJC  DATA  FOR  GUC  PREDICTION  TIME-',  IS) 

9000  FORMAT 1 X. ' GUC  DATA  PROCESSED 

9002  FORMATC/////'  HEADER  DATA'//T2, 'BLOCK' ,T16, 'RUN  INDEX'. 

M T31,'STA  INDEX', T49, 

1 'UTM  X',T64,'UTM  Y' .T76. 'DISTANCE' ,T91, 'SIM  TIME', 

2 TIOS, 'UPTIME',  T121, 'GUC  TIME'// 

3 T2, I5,T20, I5,T35, I5,T46,3(F3.2,7X) ,2C I3,7X) , 13) 

9004  FORMATC//'  PREDICTION  DATA' //T9, 'PRESSURE' , T24, 'SPEC IF IC' . 

M T33,' TEMPERATURE ',T59, 

1 'UUIND' ,T75, ‘VUIND' ,T37, 'ELEVATION'/ 

2 T9, ' (PASCALS) ',T24,' HUMID ITY',T33,' (DEGREES  K)', 

3 T60,'(M/S)'.T76,'(M/S)',T33,‘(M)'/) 

9005  F0RflAT(T3, 12, T3, F 10. 1 , T23, E 1 1 ,4, T41 ,FS.2, T54, F 1 1 .2, T70.F 1 1 .2. 

1 T35,F11.2) 

9010  FORMATC  IX,  • ALL  DATA  BLOCKS  SEARCHED  *!K^K  ERROR  ***' ) 

END 


C0MPILER(DIAG=3) 
SUBROUTINE  MPCSFC 


C 

CH<* 

C 

c 


c 


c 

c 

c 

C 

C l'■K 


C K:-K 

c 

159 
C t<^K 

CfH 

C l::K 


SBO 

C 

C 


THIS  ROUTINE  ACCESSES  THE  SURFACE  DATA  AND  LOADS  DATA  FOR  A 
MAXIMIM  OF  N5FX  STATIONS  INTO  LABELED  COMMON  /MRCDAT/ 

INCLUDE  DhTPRM 
INCLUDE  MESAGE 
INCLUDE  SCRTCH 
INCLUDE  MRCIPF 
INCLUDE  FILES 
INCLUDE  SFDATA 
INCLUDE  SBLIFEP 
INCLUDE  MRCDAT 
INCLUDE  COORD 

INTEGER  SRTIME 
DIMENSION  NHvl) 

DATA  CR  IDEC.  35 . U/,.  CP  ITSF/150 .0/ 


UPITEC-IOTFIL.  1) 

INITIALIZE  COUNTERS 

IX  = SIMULATION  TIME  - SURFACE  STATION  TIME 
JN  = COUNTER  FOP  STATIONS  FOUND  WITH  ACCEPTABLE  DATA 
SRTIME  = SURFACE  STATION  TIME  USED  AS  CALLING  ARGUMENT 
IX  = 0 
JN  = 0 

SRTIME  = TIME 

LOAD  SURFACE  DATA  HEADER 

CALL  BLK  IN  (SOBS . SFCSTN  . 1 . SFCF IL  • ISTS:» 

CONTINUE 

FIND  CLOSEST  STATIONS  iJITHIN  CRITSF  KM. 

CALL  CLSSTiNNSTATN.SFSTNX.SFSTNY, IDXSTA. STADST. STNMAX, CR ITSF) 
BEGIN  LOOP  OVER  ALL  STATIONS  UITHIH  CRITSF  KM  OF  LUND  MODEL 
SITE 

L = COUNTER  FOP  LIST  OF  NEARBY  STATIONS 
L = 0 
CONTINUE 
L = L+1 

IF  LIST  OF  POSSIBLE  STATIONS  IS  EKIHAUSTED-  TF'Y  LATER  TIME 
IFa.GT.NSTATtM  GO  TO  5000 


! “ IDXSTh'!L' 

Ct':t<  OBTAIN  DATA  FOP  STATION  I AT  TU'E  SRTIME 
265  CALL  SFCDTA  I.SPTIME . I . IFLAG; 

IF (I FLAG. EG. 0)  GO  TO  260 
LOGIC  = 0 

C*Y  DISQUALIFY  FEADItIG  ^F  VITAL  DATA  IS  MISSING 
IF(TS.LE.O.O)  L0GIC=1 
IF(IJS.LE.O.O)  L0GIC=1 
IF  CUD  .,LT.  0 . 0 .OR . UD . GT.  360 . Qi  LOG  IC=  1 
C-C!'-!--  IF  VITAL  DATA  IS  PRESENT,  PROCEED  TO  NEXT  TEST 
IFCLCGIC.NE. 1)  GO  TO  266 
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C**  IFLAG.GE.16  MEANS  MORE  DATA  AVAILABLE.  REPEAT  CALL  TO  SFCDTA 
IFdFLAG.GE.  16)  GO  TO  265 
GO  TO  260 
266  CONTINUE 

C**  DETERMINE  UHETHER  THIS  STATION  HAS  BEEN  USED  ALREADY 
CH<*  IF  SO.  DON'T  USE  TUICE.  TR  Y OTHER  STATIONS 
IF(JN.EQ.0)  GO  TO  280 
DO  270  IJK-l.JN 

IFCSFCSTNd)  .EO.STSNUMCIJK))  GO  TO  260 
270  CONTINUE 
280  CONTINUE 
C ' 

CxoK  SURFACE  DATA  UAS  FOUND.  BUMP  COUNTER.  PRINT  DATA.  LOAD  MRCDAT 
JN  - JN+1 


URITE(XTITFIL.9004)  I.SFCSTNC 
I SFSTN2d).SRTIME 
NSFNUM  = Ji' 

UIRITE(XOTFIL.9005)  UD.PA.NH 
URITE(XOTFIL.900o)  BT.UUCl) 
1 .CT.HSHS.8TADST(L) 


SDIST(JN) 

- STADST(L) 

STSNUM(JN) 

= SFCSTNCI 

XSTSCJN)  ■ 

SFSTNXd) 

YSTS(JN)  - 

SFSTNYd) 

2STS(JN)  > 

SFSTNZd) 

IFLAGS(JN) 

■ I FLAG 

SFTIME(JN) 

■ 3RTIME 

UDSFdN)  « 

UD 

USSF(JN)  » 

US 

UGSF(JN)  - 

UG 

SLPSF(JN) 

■ SLP 

BTSFUN)  • 

BT 

TSSF(JN)  • 

TS 

TDSF(JN)  » 

TD 

ASSF(JN)  » 

AS 

PASF(JN)  - 

PA 

TSCSF(JN) 

» TSC 

PUSF(JN)  - 

PU 

VVSF(JN)  - 

W 

DO  300  K » 

1.4 

UUSF(K.JN) 

- UU(K^ 

300 

CONTINUE 

DO  310  K • 

1.9 

ICLOUD(K.JN)  - NH(K) 

310 

CONTINUE 

C 


).SFSTN><d).SFSTNYd). 

US.TSC.CL.UG.PtJ.H.W.CM.SLP.CH. 

NS.TS.U)U(2).TD.LJUi:7'.K.AS.LJU(4). 
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C^K^K  IF  NSFX  STATIONS  HAVE  BEEN  FOUND.  OUIT  AND  BE  HAPPY 
IF(NSFNUM.GE.NSFK)  GO  TO  5190 
C^-K  IF  NOT.  TR',’  riGRE  STATIONS 
GO  TO  2b0 
5GOO  CONTINUE 
C 

c 

C l'*  TR  r’  DATA  UNE  HOUR  OLDER 
D<  = r;+t 
SRTitiE  = TiriE-i:-: 

C'K*  MAKE  DISTANCE  PEOUIPEMENT  MORE  STRINGENT 
CRITSF  = CP  I'^SF-CR  IDEC 
C'K*  IF  DATA  IS  TOO  OLD.  OIJIT 

IFCI.Y.LE.  IMDT(2:i.i  GO  TO  150 
C 
C 

5100  CONTINUE 

UP  I TE  i; : :oTF  i l . 9020  > t i me 
UR  I TE !0TF  i L . 9000  j NSFNUM 

1  FCPMAT'  • ISijRFACE  STATION  DATA'.-'/'  VARIABLE  NAMES-'/ 

1 ' UD ..  P A . N H . US , T£  C . C L . UG . P U , H . V V . C M . S L P . C H . B T . I AK  1) , ' . 

2 'NS . TS  . UU  ■;  2 ) . TD  . UW  i'  3 ) . K . AS . U.J  ( -1) . CT.  HSH3  ' /.  • 

3 ' FOR  DESCRIPTICN  OF  VARIABLES  SEE  COMMON  BLOCK  /SFDATA/'/) 

9020  FORMAT!.  IM. 'SURFACE  DATA  EXHAUSTED  FOR  TIME  ='  13) 

9004  FORMAT'!/// •'  HEADER  DATA'  -' 

1 T42. 'STATION  INDEX' . TS  1 STATION  ID' . TTG. ' UTM  X' , T90. 'UTM  Y' . 

2 T102.'UTM  Z' .TllS, 'SUPFACE  OBS  TIME' // 

3 T52.  I3-TS1.  1 1O.T74.F9.3.T3I3.F9.3.T93.F9.3.T120.  13///) 

9005  FORMAT' ' OBSERVATION  DATA' 

M T7 . ■ U I ND  D I RECTI ON ' . T24 . ' - ’ . T26 . F 1 0 . 2 . T37 . ' ( DEG ) ' , 

M TSl.'S  HR  PRECIP'. 

M TSS.'='.T70.F10.2.T9b. ‘LOU  CLOUD  COVER  . ' . T1 19 • ' . T12 1 . 16/ 

M T14. 'SPEED', T24.'-'.T2S.F10. 2. T37.  •ai/S'''..T51. 'TOTAL  SKY  COVER*. 
M T63.' =■ .T70. I 10.T96. 'TYPE  LOU  CLOUDS' .T1 19. '=’ .T121. 16/ 

M T14. 'GUSTS'. T24,'-',T2S,F10. 2. TSl.'PAST  UEATHER'. 

M T68. '-' ,T70, 1 10. T9S. 'HEIGHT  LOU  CLOUDS '. T1 19. '='. T12 1 , 16/ 

M T51. 'VISIBILITY'. 

M T68.'-',T70, 110. T81,’(M)',T9b, 'TYPE  MIDDLE  CLOUDS'. 

M T119.'-'.T121. 16/ 

M T7. ■ PRESSURE '.T24. '-'.T26.F10. 1 . T37, ' (PASCALS) ' , 

M T51, 'PRESENT  UEATHER'. 

M T96,'TVPE  HIGH  CLOUD' .T1 19. ' =' .T121 . IS) 

9006  FORMATC  i;;,T7. 'BAPO  TEND ' . T24. ' - ' . T26 . 1 10,  T57.'UU(1)'. 

M T63.'='.T70. 110. T?6.' AMOUNT  CLOUDS' . T1 19. T12 1 . 16/ 

M T7, 'TEMPERATURE' .T24. ' .T26.F10.2,T37, ' (DEG  K) ' . T57. ' UU(2) ' . 

M T63, ' =■ .T70. 1 10/ 

M T7,'DEU  PT  DEPRESS' .T24. .T26. FIO. 2, T37.' (DEG  K)'. 

M T57.'UU(3)'. 

M Tb3. ' ,T70. 1 10. T9b. 'HEIGHT  CLASSIFICATION' .T1 19. ' , T12 1 . 16/ 

M T7.'ALTIM  SETTING'. T24,'-'.T2fa, FIO. 2. T37. '(INCHES  HG)'. 

M T57.'UU(4)', 

M T63.  '-' .T70,!10.T9b,'r,'PE  CLOUD' .Tl  19. ' - ' .T121 . 16/ 

M T9b, ‘HEIGHT  TO  BASE  OF  CLD ' , Tl 19 . ' - ' . T12 1 , 16// 

M T2. 'DISTANCE  TO  SIMULATION  POINT  - '.FIO. 2,'  KM*/////) 

9000  FORMATC IX, 'SURFACE  DATA  PROCESSED  ’.15.'  STATIONS  FOUND  UITH' 

1 .'  DATA'//) 

C 

RETURN 

END 
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c 

G** 

C>K;K 

C'K* 

c 


c 

c 


C0MPILER(DIAG-3) 

SUBROUTINE  MRCUA 

THIS  SUBROUTINE  SEARCHES  THE  UPPER  AIR  DATA  SETS  FOR  DATA  AT  FOUR 
STATIONS  SUFFICIENTLY  CLOSE  TO  THE  TIME  AND  PLACE  OF  THE  SURFACE 
UIND  ESTIMATION. 

INCLUDE  DATPRM 
INCLUDE  MRCIPF 
INCLUDE  MESAGE 
INCLUDE  COORD 
INCLUDE  SCRTCH 
INCLUDE  FILES 
INCLUDE  MRCDAT 
INCLUDE  OBUFER 
INCLUDE  TDATA 
INCLUDE  UDATA 

INTEGER  UABLK 


DATA  CRITUA,OBUFRN/250.0,431/ 

C 

C**  INITIALIZE  COUNTERS 

C**  ICOUNT  COUNTS  THE  NUMBER  OF  STATIONS  FOUND  UITH  ACCEPTABLE  DATA 
C**  AND  LOADED  INTO  COMMON  /MRCDAT/  FOR  USE  BY  DATANL, 

C**  UABLK  INDEXES  THE  UPPER  AIR  HEADER  BLOCK  BEING  SEARCHED. 

ICOUNT  - 0 
UABLK  - MXBLKU+1 
C 

C**  LOOP  OVER  HEADER  BLOCKS 
50  UABLK  - UABLK- 1 

IF  (UABLK.  LE.O:i  GO  TO  5000 

CALL  BLKIN(UOBS.UASTNS(l).UABLK..OBFILE,  ISTS) 

IF(UATIME( 1) .GT.TIME)  GO  TO  50 
IDIFF  - IDIFTMCTIME.UATIMEd)) 

IF(IDIFF.GE.24)  GO  TO  5000 
C 


C**  THE  BLOCK  OF  UA  DATA  FOR 
C**  SIMULATION  TIME  HAS  BEEN 

C**  FIND  THE  MOST  RECENT  RUN 

IRUNMX  - 1 
DO  60  I-2.RU 
IFCUATIMECI) .GT.TIME)  GO 
IRUNMX  - I 
60  CONTINUE 
70  CONTINUE 


THE  24  HOUR  PERIOD  CONTAINING 
FOUND 

IN  THIS  BLOCK 


TO  70 


C 

OBTAIN  LIST  OF  STATIONS  SUFFICIENTLY  CLOSE  TO  SITE 
CALL  CLSSTM(NSTATN,UASTNX.UASTNY, IDXSTA. STADST. STNMAX.CR ITUA) 
C**  IF  NO  STATIONS  EXIST.  QUIT 
IFCNSTATN.EQ.O)  GO  TO  5000 

C**  RECENT  DATA  FROM  NEARBY  STATIONS  HAS  BEEN  LOCATED 
C**  ACQUIRE  DATA 
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100 

Ct'K 


C*’t< 

103 


LOOP  OVER  rtCCEPTPlBLE  TIMES 

DO  200  I=1.IRUHMX 

IRON  = IRLIHMK+l-I 

ID  IFF  = ID IFTMCTIME. UPTIME (IRON)) 

IF ( ID  IFF. GE.  12)  GO  TO  5000 

PS  PN  OPTIuH,  DPTP  FROM  TIMES  JUST  PRECEDING  PND  JUST 
FOLLOUING  SIMULPTION  TIME  MPY  BE  SOUGHT  PND  PVERPGED. 

THE  DEFPULT  PROCEDURE  IS  TO  USE  THE  REPL-TIME  VPLUES  ONLY 
SET  THE  TIME  PVERPGING  FPCTORS 
TMP  = IDIFF/12.0 
F2  = TMP 
FI  = 1 - F2 

LOOP  OVER  NEPRBY  STPTIONS 
DO  190  J=1,NSTPTN 

INITIhLIZE  FOR  PCQUISITION  OF  REPL-TIME  DPTP 
JRUN  = I RUN 
IPT  = 100 
lU  = 100 

SET  STPTION  INDEX 
INDEX  = IDXSTP(J) 

THIS  IS  THE  ENTRY  POINT  FOR  THE  TIME  'SPNDUICH’ 

CONTINUE 

SET  NUMBER  OF  TEMPERATURE  PND  IJIND  READINGS  FOR  THIS  STPTION  AND  TIME 
iMAX  » TLVLMXC INDEX, JRUN) 

;:rv)X  =■  ulvlmxcindex,  jrijn) 

GET  MINIMUM  NUMBER  OF  READINGS  FOR  THE  TUO  DPTP  SETS 
IPT  = MINOi' IPT.  IMPX) 
lU  =■  MINO(  IIJ.KMPX) 

IF  INSUFFICIENT  READINGS  ARE  PV'AILPFLE.  PREPARE  TO  SKIP 
IF(  IPT.EQ.O.OR.  IIJ.EQ.O)  GO  TO  103 
IF  < IPT. GT. NLVL)  iPT=HLVL 
IF( lU.GT.NLVL)  IU=HLVL 

OBTAIN  UP  DATA  FOR  INDICATED  STATION  AND  RUN 
CALL  UADATA(  INDEX.  JPUtI,  IFLAG) 

IF(IFLPG.NE.O)  GO  TO  104 

DPTP  IS  INCOMPLETE.  SKIP  THIS  STATION;  BUT  RESET  ICOUNT  IF  NECESSARY 
IFCJPUN.EO. IPUN)  GO  TO  190 
ICOUNT  = ICOUNT- 1 
GO  TO  190 


C 

104 

C-l:H< 


CONTINUE 

BRANCH  IF  DATA  IS  TO  EE  TIME  AVERAGED 
IFCJRUN.NE. IRUN)  GO  TO  120 

ICOUNT  - ICOUNT  + 1 
IC  = ICOUNT 


C**  STORE  DATA  IN  COMMON  /MRCDAT/ 

C**  PRESSURE  AND  TEMPERATURE  READINGS 
NTR(ICOUNT)»  IPT 
DO  110  K=1,IPT 
PRESCK, ICOUNT)  - PS(K) 

TEMP(K, ICOUNX)  - TS(K) 

QHUMCK, ICOUNT)  - aS(K) 

ZMSL(K, ICOUNT)  - ZS(K) 

VRTEMPCK, ICOUNT)  - TV(K) 

POTEMP(K. ICOUNT)  - TA(K) 

UUIND(K> ICOUMT>  - US(K) 

VUINDCk, ICOUNT)  - VS(K) 
tl0  CONTINUE 
C 

Cw  UIND  READINGS 

NUR( ICOUNT)  • lU 
DO  115  K-l.IU 
UVEL(K, ICOUNT)  - UUKK) 

WEL(K,  ICOUNT)  » VU(K) 

ZUDMSLCK. ICOUNT)  = ZU(K) 

115  CONTINUE 
C 

C**  ir  ^IME  AVERAGED  RESULTS  ARE  NOT  DESIRED,  SKIP  AHEAD 
IFCIMDTCD.NE.l)  GO  TO  155 

C**  TIME  AVERAGING  REQUESTED.  SET  JRUN  TO  NEXT  RUN  AND  REENTER  DATA 
C*^K  ACQUISITION  LOOP 
JRUN  - IRUN+1 
GO  TO  )0 
C 

120  CONTI., LE 

C*»  THIS  CODE  TIME  AVERAGES  TUO  SETS  OF  UA  DATA 
DO  130  K»l, IPT 
PR  - PRES(K. IC) 

TEMP(K,1C)  « F1*TEMP(K.IC)+F2>kINTRP(PS.TS.  IPT,PR) 

QHUM(K.IC)  - F1*-QHUM(K.  IC)+F2>t<INTRP(PS.QS.  IPT.PR) 

ZMSLCK.IC)  - F1>kZMSL(K,  IC)+F2i‘INTRP(PS,2S.  IPT.PR) 

VRTEMP(K.IC)  » F1*VRTEMP(K,  IC)+F2'i<INTRP(PS,TV.  IPT.PR) 

POTEMPCK,  IC)  - F1:kPOTEMP(K.  IC)+F2=KIHTRP(PS,TA.  IPT,PR) 

UUIND(K,IC)  » FI-kuUINDCK.  IC)+F2*INTRP<PS,US,  IPT.PR) 

VUIND(K,IC)  « FbKVUINDCK. IC)+F2*INTRP(PS.VS- IPT.PR) 

130  CONTINUE 
C 

Ci<*  UIND  READINGS 
C 

NUR(IC)  - lU 
DO  135  K-1,IU 
ZP  - ZUDMSLCK. IC) 

UVEL(K.IC)  ■ Fl)XUVEL(K.  IC)+F2*INTRP(ZU.UU,  lU.ZP) 

WELCK.IC)  - F1*VVEL(K, IC)+F2*INTRP(2U,VU, lU.ZP) 

135  CONTINUE 
C 

155  CONTINUE 
C 
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UPTIME (ICOUNT)  - UATIME(IRUN) 

IFdMDTCn  .EQ.  n UPTIME(  ICOUNT) -TIME 
STUNUMC ICOUNT)  - UASTNSt INDEX) 

XSTPIC  ICOUNT)  = UASTNX(  INDEX) 

YSTA( ICOUNT)  - UASTNYC INDEX) 

ZSTAC ICOUNT)  = UACTNZ ( INDEX) 

IFLAGUC ICOUNT)  = IFLAG 
UDISTUCOUMT)  = STADST(J) 

C 

C'K>K  PRINT  DATA 

URITECXOTFIL, 1008)  UABLK, IRUN, UASTNS ( INDEX) . 

1 UASTNXC INDEX) ,UASTNY( INDEX) ,UASTNZ( INDEX) . UPTIME ( ICOUNT) . 

2 IFLAG, INDEX 

N = MINOCNLVL, IPT, lU) 

DO  160  K=1,N 

160  URITE(XOTFIL,2000)  PRES CK. IC) , TEMP (K, IC) , QHUMCK, IC) . 

1 ZMSL(K,  IC)  .UUINDCK,  lO  .VUINDCK,  IC)  ,VRTEMP(K.  lO- 

2 POTEMP(K,IC) 

URITECXOTFIL-SOOD) 

DO  irO  K=I,N 

170  IJRITE(:<OTFIL,4O0O)  UVELCK,  IC) . VVELCK,  IC)  - ZIJDMSL (K,  IC) 

UR  I TE  i; : .:OTF  I L , 4005 ) STA DST U ) 

C'H;k  IF  NUAX  STATIONS  HAVE  BEEN  FOUND,  QUIT  AND  BE  HAPPY 
IF (ICOUNT. GE.NUAX)  GO  TO  5000 
1?0  CONTINUE 
200  CONTINUE 
C 

IF( ICOUNT.lt. NUAX)  GO  TO  50 
5000  NUANUM  = ICOUNT 

nija::x=nijax 

UP  ITE  '.XOTF  IL , 6000)  NUANUM.  NUAXX 
RETURN 
C 

1000  FORMATCIHI,  'UPPER  AIR  DATA  FOUND  USING  HEADER  BLOCK  NUMBER' . 13/-/ 

1 T7,-RIJN  INDEX  STATION  NUMBER  UTM  X UTM  Y' . 

2 • ELEVATION  (METERS)  OBSERVATION  TIME  DATA  FLAG'. 

3 ' STN  INDEX'.'TIS, I3.T29. Ib.T3r.F8. 1,T47,F3. 1,T59,F10.2.T93, 16, 

4 T104. 19.111  PPESSUPE,  TEMPERATURE,  AND  UIND  READINGS'/v 

5 T7.'  PRESSURE  TEMPEPATUPE ' . lOX, ' SPEC  IF  IC  OBSERWTION', 

6 • UIND  VELOCITY  UIND  VELOC ITY' , TI07. ' VIRTUAL' , 

7 T 120. 'POTENTIAL'/ 

3 T7, • (PASCALS)  (DEGREES  K) ', 19X, ' HUMID ITY  HEIGHT  (P.T' 

9 ,')  U COMPONENT  V COMPONENT'. 

T T 1 07 . • TEMP ' , T 1 20 . ’ TEMP ’ //) 

2000  F0PMAT(T6.F10, 1 . T26 . F6 . 2, T40, IPE 10 . 4, T60, 0PF7 . 1 , T76, F7 . 2. T94, 

1 F7.2,T107.F7.2,T120,F7.2) 

3000  FOPMAT(//'  SIGNIFICANT  UIND  LEVELS'// 

1 T7.  'UIND  VELOCITY  UIND  VELOCITY',  T45, ' OBSERVATION' / 

2 T7,  'U  COMPONENT  V COMPONENT' . T45. ' HE IGHT’ ) 

4000  F0PMAT(T7.F7.2,T26.F7.2,T45,F7. 1) 

4005  FOPMAT(///'  DISTANCE  TO  SITE  =■  ',F3.2.'  KM') 

6000  FORMATC/',"  DATA  SEARCH  COMPLETE'  ',  IX,  13, ' RUN(S)  UITH  ' 

1 .'ACCEPTABLE  DATA  FOUND.  '.13.'  RUNS  UERE  SOUGHT') 

C 

END 
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SUBROUTINE  PLTPRG 

RETURN 

END 


SUBROUTINE  MIXLYR 

RETURN 

END 
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C0MPILER(DIAG-3) 
SUBROUTINE  TERftCQ 


C 

C* 

CHc  SUBROUTINE  TERftCQ  ACQUIRES  MICRO  TERRAIN  AND  SURFACE  ROUGHNESS 

C*  DATA  USED  IN  ROUTINE  UINDEX. 

C-'K 

C*  INPUTS: 

C*  XPLACE  = UTM  ;<-COORD IMATE  OF  SITE 

C:k  YPLACE  = UTM  Y-COORDINATE  OF  SITE 

C^^<  MTRBLK  = DATA  ACQUISITION  FLAG 

C*  OUTPUTS: 

C^  = MICRO  TERRAIN  ARRAY 

C*  IS  SOUTHWEST  CORNER 

Cm<  HCI.ILL)  is  NORTHWEST  corner 

C*  ETC 

C^x  ROUGH = SURFACE  ROUGHNESS  APPAV 

C-'K  DEL  TER  = GRID  SPACING  (METERS) 

CK 

fl::.''  k:k'k•k.k:k;k.■^.•^k.•k:k^k)k** 

C 

INCLUDE  GRDPRM 
INCLUDE  MESAGE 
INCLUDE  FILES 
INCLUDE  COORD 
INCLUDE  MPCIPF 
INCLUDE  TERDAT 
INCLUDE  TBLHDR 
INCLUDE  INTLYZ 
C 

DIMENSION  DST(IDIM) 

C 

IF(MTPBLK.GT.O)  GO  TO  200 
C 

C>k>K  tiTRBLK  = 0:  SEARCH  DIPECTOPv  FOR  TERRAIN  BLOCK  WITH  SOUTHWEST 
Ck«<  CORNER  CLOSEST  TO  X'PL ACE. YPLACE 
IMIN  - 1 

DO  100  I'l-NHBLK 
DSTCI)  =■  i:<PLACE-SI..JUTMXi:i)>*>k2 
1 +c  YPLAi:E-SUUTM't'(  I ) ) 'k-kZ 

IF(DST(I).GT.DST(IHIN>)  GO  TO  100 
IMIN  » I 
100  CONTINUE 

IF>DST( IMIN) .LT. 10. ) GO  TO  150 

IHIEPC  = 0 

WR I Tt  (XOTF IL . 10uO.' 

PETIJPN 
150  CONTINUE 

C**  IMIN  IDENTIFIES  BLOCKS  CONTAINING  DATA  CLOSEST  TO  SITE 
MTRBLK  = IMIN 
GO  TO  300 
C 

200  CONTINUE 

C^k*  USE  MTRBLK  TO  SET  IMIN 
IMIN  • MTPBLK 
300  CONTINUE 
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C**  DEFINE  XPLflCE.YPLACE  TO  AGREE  UITH  DATA  LOCATION 
XPLACE  - SUUTMX(IMIN) 

YPLACE  - SUUTMY(IMIN) 

C 

CsK*  BLOCK  IN  APPROPRIATE  TERRAIN  AND  ROUGHNESS  DATA  AMD  GRID  SPACING 
ITER  - 2>«IMIN 
IRUF  ■ ITER+i 

CALL  BLKINCNFOUT.Hd.  n.  ITER.MICTRF,  1ST) 

CALL  BLKIN(NF0UT.R0UGH(1. I) . IRUF.MICTRF. 1ST) 

DELTER  - DELHCIMIN) 

IF(ZPLACE.Ea.0.0)  ZPLACE-H(ld) 

C 

IJRITE<XOTFIL.3000)  XPLACE. YPLACE. ZPL ACE 
URITE(XOTFIL.2000)  IMIN 
C 

RETURN 

C 

1000  FORMAT(//'  NO  TERRAIN  DATA  SUFFICIENTLY  CLOSE  TO  SITE’) 

2000  FORMATC/."  TERRAIN  DATA  TAKEN  FROM  DIRECTORY  SITE  NUMBER  ' . I3/Y) 
3000  FORMAT (//  ’ XPLACE  - '.F8.2/ 

1 ' YPLACE  - ■•,F8.2/ 

2 ' ZPLACE  =■  '.FS.2) 

C 

END 


C 

SUBROUTINE  TMPPRF 
C 

INCLUDE  MESAGE 
INCLUDE  FILES 
INCLUDE  INTLY2 
INCLUDE  COORD 
INCLUDE  COEF 
INCLUDE  DATFLG 
C 

C**  POTENTIAL  TEMPERATURE  PROFILE  AT  SITE  GIVEN  BY  TPRO(L) .ZPRO(L) 
C 

XX  • XPLACE 
• YPLACE 
Z2  - ZPLACE 
C 

DO  250  L-1. LEVELS 

TPRO(L)  • AA(L.  l)+BB(L.  l)*XX+CC(L.  1)>«YY 
2PR0<L)  • AA(L.4)+BB(L.4)*XX+CC(L.4)*YY 
250  CONTINUE 

NVFLAGM)  - 1 

C . 

RETURN 

END 
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C0MPILER(DIAG-3) 
SUBROUTINE  UNDI-ER 


t 


C* 

C*  UNDMGR  IS  THE  OVERALL  MANAGER  FOR  THE  MICRO  WIND  MODEL.  ITS 
C*  FUNCTIONS  ARE  THE  FOLLOUIMG: 

C*  1.  ACQUISITION  OF  HEADER  INFORMATION  FOR  THE  MICRO  TERRAIN  INPUT 
C*  AND  MICRO  WIND  OUTPUT  FILES 

C*  2.  INPUT  OF  FLAG  DATA  GIVING  OPTIONS  FOR  THE  RUN  TO  BE  EXECUTED 

C*  3.  CONVERSION  OF  LOCAL  TIME  TO  GREENWICH  PACKED- JUL lAN-DAY-AND- 

C>t‘  HOUR  TIME 

C*  4.  MANAGEMENT  OF  ITS  PRINCIPAL  SUBORDINATES: 

C*  TERACQ  - TERRAIN  ACQUISITION 

C*  DTBMGR  - DATA  BASE  SEARCH 

C'^<  DATANL  - DATA  ANALYSIS 

C=K  DRIVRS  - CHECKS  DRIVERS  AGAINST  PREVIOUS  RUMS 

C-K  UINDEX  - MICRO  WIND  SIMULATION 

C* 

C*  LOCAL  VARIABLES: 

C*  MONTHS  - ARRAY  OF  DAYS- IN-MONTH  FOR  CONVERSION  OF 

CK  LOCAL  TIMES  TO  JULIAN  TIMES 

C-K  LOCATION  OF  IMPORTANT  COMMON  VARIABLES: 

C-K  LTIME  - xCOORDx 

CK  TIME  - .■COORD-' 

CK  IHIEPC  - .'MPCIPF/ 

CK  ILASTR  - -MRCIPF.-' 

CK 

C K*>K*>K;K'K:(^:K;f:;»c:«,i<.'kMc:K!K*'K:l':*:KM<nwK'K:k!K-k;K  K;K:K:twlc^teK:K:K:K'KM"K:K:K;K-K;K:+::K'K'K'K>K'-K;K;kM:;KM::K:K*:K5);i<5K.'K!f:.'K>K 

C 

INCLUDE  DATPRM 
INCLUDE  GRDRPM 
INCLUDE  lESAGE 
INCLUDE  FILES 
INCLUDE  COORD 
INCLUDE  MRCIPF 
INCLUDE  TEPDAT 
INCLUDE  INTLVZ 
INCLUDE  IFCHDP 
INCLUDE  TBLHDP 
C 

DIMENSION  r-IONTHSdS) 

DATA  MONTHS  - 0.S1,.59.90.  120.  151,.  131 .212. 243.273. 304,334/- 
C 

NAMELIST  /FLAGS-'  IDAT.  IMDT,  ILASTR.  NTST. 

1 IFLUX.  IHIERC.  MTRSLK.  IPELAM,  ILE.  ILW.  JLN.  JLS 
C 

CK-K  BLOCK  IN  DIPECTORY  OF  ARCHIVED  MICRO  TERRAIN  DATA 
CALL  BLKINITHDPSC.NNBLK, l.MICTPF.  1ST) 

C-K*  BLOCK  IN  DIRECTORY  OF  ARCHIVED  MICRO  WIND  SIMULATIONS 
CALL  BLKINIHDRSIE.RCOUNT. l.MOTFIL, 1ST) 


C**  ENTRY  FOR  SUCCESIVE  RUNS 
1 CONTINUE 
READ(XINFIL. FLAGS) 

C 

C**  SUPPLY  DEFAULT  VALUES 
DO  20  1=1.3 

IFdDATd)  .NE.O.flHD.  IDATd)  .NE.l)  IDAT(n-0 
20  CONTINUE 

IFdDATi:4)  .NE.0.AND.  IDAT(4)  .NE.l)  IDATC4)-1 
IFdDAT(6)  .NE.0.AND.  IDAT(6)  .NE.l)  IDAT(6)-1 
IFCIMDTd)  .LT.0.OR.  IMDTCl)  .GT.  1)  IMDTd)-0 
IFdMDT(2)  .LT.0.OR.  IMDT(2)  .GT.3)  IMDT(2)-3 
IFdMDT(3)  .LT.0.OR.  INDT(3)  .GT.6)  IMDTCS)  =6 
IFdMDT(4)  .LT.  l.OR.  IMDT(4)  .GT.3)  IMDT(4)=8 
IFdMDT(6)  .LT.-l  .OR.  IMDT(6)  .GT.  1)  IMDT(6)  -1 
IF(NTST.NE.0.AND.NTST.NE. 1)  NTST-0 
IFdFLUX.GT.4.AND.  IFLUX.LT.  1)  IFLUX=2 
IFCIHIERC. GT.3. AND. IHIERC.LT.O)  IHIERC-0 
IF (MTRBLK . GT. NUBLK . AND . MTRBLK . LT. 0)  MTRBLK-0 
IFCIRELAX.LT.O.OR. IRELAX.GT. 100)  IRELAX-5 
IFCILE.LT. l.OR. ILE.GT. ILL)  ILE-ILL 
IFdLU.LT.  l.OR.  ILU.GT.  ILL)  ILU-1 
IFCJLN.LT. l.OR.JLN.GT.JLL)  JLN-JLL 
IFCJLS.LT. l.OR.JLS.GT.JLL)  JLS-1 
C 

URITE(XOTFILd000)  IDAT. 

1 IMDT,  ILASTR.  NTST.  IFLUX,  IHIERC,  MTRBLK,  IRELAX, 

2 ILE, ILU.JLM.JLS 
C 

C**  READ  SPATIAL  AND  TIME  COORDINATES  AND  DETERMINE  GREENUICH  TIME 

NAMELIST  /TIMPLA/  XPLACE,  YPLACE.  2PLACE,  YEAR,  MONTH.  DAY,  HOUR. 

1 MINUTE 

READ  (XINFIL, TIMPLA) 

C 

C**  INPUT  TIMES  ARE  LOCAL.  CONVERT  TO  GREENUICH  JULIAN  PACKED  DAY 
C**  AND  HOUR 
C 

JULIAN  - MONTHS ( MONTH )+DAY 
LEAPYR  - MOD (YEAR, 4) 

IF(LEAPYR.EQ.0.AND.M0NTH.GT.2)  JULIAN  = JULIAN+1 
LTIME  • JULIANyl00+HOUR 
ID  IFF  - (HniJP+TIMDIF)/24 
JULIAN  ■ JULIAN+IDIFF 

IF  (LPYEAP . ECl . 0 . AND . JUL IAN . EQ . 367)  JUL IAN- 1 
IF(LPYEAR.EQ. 1. AND. JULIAN. EQ. 366)  JULIAN-1 
TIME  • (JULIAN+IDIFF)*100+(HOUR+TIMD1F-IDIFFM<24) 

C 

URITE(>'T)TFIL.3000)  XPLACE.  YPLACE.  ZPLACE.  YEAR.  MONTH.  DAY,  HOUR. 
1 MINUTE 


D-57 


C**  CALL  SUBORDINATE  ROUTINES 

URITECX0TFIL.4000)  LTIME.  TIME 
CALL  TERACQ 
CALL  DTBMiSR 

IFCIHIERC.EQ.O)  GO  TO  40 
CALL  DRIVRS 

IFCIHIEPC.EQ.O)  GO  TO  40 
CALL  UINDEX 
40  CONTINUE 
C 

C'k*  OUTPUT  UPDATED  PLOT  HEADER 

CALL  BLkOUTCHDRSIZ.RCOUNT, l.MOTFIL- 1ST) 

C 

IF(  ILASTP.EQ.  1)  PETURtI 
GO  TO  1 
C 

1000  FORMAT','  ‘ INPUT  FLAGS  TO  MRCIPF  COMMON''/ 

1 T35,’ IDpiT 

2 T59.  • IMDT ' .TS2,''  ILASTR  ' . T94.  --NTST' . T104. ' IFLUM' 

0 T1  15,  ■ IHIEPC  . T12S,  'MTPBLK'  'T55,bI3.T59.. 

4 SI3-.TS3.  I5,T94.  I4.T104.  15. T1 15,  I5,T12r.  15/.' 

5 T35,'IPELAM  ILE  ILIJ  .JLN  JL3  '.  TSS, 

b Ib,  14,315.  IS.'/) 

2000  FCPMAT(3I10.  515) 

3000  F'OPMhT'  * INPUT  TO  COCPD  COMMON’  ' 

1 T35,  .PLACE'  .T47.  "/PLACE'  . T59 . ' ZFLACE  ' .T71,  "YEAR’ ,T81, 'MONTH' 

2 T92. 'Dh ,",799, 'HOUR' .T1 1 1, 'MINUTE'  ' 

3 T35.Fb.0,T47,Fb.0..T59.Fb.0,T71,  I4.T'31,  I5,T92,  I3.T99,  14. T1 11, 

4 i G ' , ' 

4CC0  FORMAT/ ' PAC.'.ED  LOCAL  JULIAN  DA'Y  AND  HOUF  = ’..IS-' 

1 ' PACK.ED  GREENUUCH  JULIAN  DA','  AND  HOUP  = ',!b) 

C 

END 
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PROGRAM  XECAMS 
C 

INCLUDE  MESAGE 
INCLUDE  FILES 
C 

DATA  UAF ILE, LYR2FL, TRRNFL. LYR4FL. GR IDF  1 . GR IDF2,  GR IDF3, XOTF IL, 

1 OBFILE,XINFIL,GlJCOBF.GUCFIL,SPAREF.SFCGBF,SFCFIL,MICTRF. 

2 MOTFIL/1,2/3.4.5.7-9,6.8, 10.11.12, 13. 14. 15. 16. 17/ 

C 

NAMELIST  /XFLAGSz*  FUNCTN.  TASK.  JOB.  BLOCK.  FILE.  PRINT.  LE'VEL 
5 READ ( X INF IL.XFLAGS.  END-110) 

URIT1(XOTFIL.2000)  FUNCTN.  TASK.  JOB.  BLOCK.  FILE. 

1 PRINT.  LEVEL 
C 

C**  BRANCH  ON  THE  VALUE  OF  FUNCTN 
GO  TO  (20.40.60.30).  FUNCTN 
C 

20  CALL  APPLY 
GO  TO  100 
40  CALL  ANALYZ 
GO  TO  100 
60  CONTINUE 
C**  CALL  OTHER  ROUTINES 
GO  TO  100 
80  CALL  PLTPRG 
C 

100  IF(JOB.GE.0)  GO  TO  5 
110  CONTINUE 
C 

1030  F0RMAT(7I3) 

2000  FORMAT! '1  INPUT  FLAGS  TO  MESAGE  COMMON' //T2.' FUNCTION' . 

1 T15. ' TASK' . T26. ' JOB' ' BLOCK' . T45. ' F ILE' . T55. ' PR INT' . 

2 T66.' LEVEL' /T8. I2.T17. I2.T26. I2-T37. I2.T47. 12. 

3 T58. I2.T69.I2//) 

STOP 

END 
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D.3.2  Data  Analysis  Routines  (DATANL) 


I 


C0MPILER(DIAG-3) 

SUBROUTINE  DATANL 
C 

INCLUDE  MESAGE 
INCLUDE  COORD 
INCLUDE  MRCIPF 
INCLUDE  FILES 
INCLUDE  MRCDAT 
INCLUDE  INTLYZ 
INCLUDE  COEF 
C 

INCLUDE  DATFLG 
C 

C**  INITIALIZE: 

DO  1 1=1,3 
NVFLAG(I)  = 0 
1 CONTINUE 

URITE(XOTFIL, 10) 

10  FORMATC • IDATA  ANALYSIS’//) 

C 

C^i*  CHECK  UHETHER  USER  INITIALIZATION  DATA  IS  AVAILABLE 
C 

IF(IDAT(b) .HE.0)  GO  TO  50 

CALL  MANUAL 

RETURN 

50  CONTINUE 
C 
C 
C 

C**  CHECK  UHETHER  MESOMETEOROLOG ICAL  DATA  IS  AVAILABLE 
C 

IF(IDAT(5) .NE.O)  GO  TO  100 
CALL  NETVAR 
100  CONTINUE 
C 
C 

IF(HVFLAG(3) .EQ. 1)  GO  TO  200 
C 
C 

C*;::  CHECK  UHETHER  MESOMODEL  DATA  IS  AVAILABLE  AND  RECENT 

IF(IDAT(4) .NE.O)  GO  TO  200’ 

IF(  IDIFTMaiME, UPTIME!  .GT. 3)  GO  TO  200 
CALL  MESVAR 
200  CONTINUE 
C 
C 

Cw  OBTAIN  UPPER  AIR  PROFILES  OF  PRESSURE.  POTENTIAL  TEMPERATURE. 
C**  AND  UIND 

CALL  PROFLS 

IFdFLGl  .ECI.0)  GO  TO  1000 
C 
C 

C;K:K  OBTAIN  POTENTIAL  TEMPERATURE  PROFILE  AT  SITE 
CALL  TMPPRF 
C 
C 
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C*M<  CHECK  UHETHER  SURFACE  STATIONS  SHOULD  BE  USED  FOR 
C>i<rK  SURFACE  TEMPERATURE 

IF(NVFLAG(2) .EQ. n GO  TO  400 
IF(NSFNUM.ED.0)  GO  TO  1000 
CALL  SRFTMP 
400  CONTINUE 


K*  CHECK  UHETHER  UA  DATA  SHOULD  BE  USED  FOR  GENERAL  UIND 
IFa-IVFLAG(3)  .EQ.  1)  GO  TO  1000 
CALL  UAVAR 


1000  CONTINUE 

:km<  data  ANALYSIS  COMPLETE 

check  FLAGS  TO  SEE  UHETHER  MANUAL  INPUT  IS  PE0UIRED 

ITMP  = NVFLAG(l)-niVFLAG':2)*NVFLAG':3) 

IF< ITMP.EO.0)  IHIERC  = 0 
I F ( I TMP . ECl . 0 ) UR  I TE  ( XOTF I L - 6000 ) 

URITE',X0TFIL,5000)  TSITE.TPSITE.  (TPPO(J) , ZPPO(J> , J = 1 -LEVELS) 

1  -GENUND 

5000  FORMATC IX- ■TEMPERATURE  AT  S ITE ' - T34- ’ =-’ . T40- F8 . 2- ' DEG  K'// 

1 IX. 'POTENTIAL  TEMPERATURE  AT  SITE' -T34- ' -T40-F8.2- ' DEG  K' 

2 //IX. 'TEMPERATURE  PROFILE' .3(T40-F3.2- 10X.FS.2/)/ 

3 IX- 'GENERAL  UIND  '/T20.'U  COMPONENT' - T34- '='- T40- F8 , 2/ 

4 T20.  'V  COMPONENT'. T34.'='.T40-FS. 2) 

6000  FORMATC IDATA  ANALYSIS  UNABLE  TO  INITIALIZE  UINDEX’/ 

1 ' RESTART  UITH  MANUAL  INPUT') 

C 

RETURN 

END 


I C0MPILER(DIflG=3) 

I SUBROUTINE  GEOUIND(X. Y-ZSURF.VX. VY) 


C-l: 


c* 

THIS  ROUTINE.  USES 

THE  UPPER  AIR  DATA  INTERPOLATION  PLANES 

CK 

TO  COMPUTE  H 'SURFACE'  GEOSTPOPHIC  UIND  V AT  A GIVEN  LOCATION 

c*^ 

(X, Y) . 

V SATISFIES  THE  EQUATION 

Ck 

1 

C* 

A = 

-2.0kOMEGAkSIN(PHI)k(K  X 7) 

C'k 

WHERE 

C'k 

A = 

HORIZONTAL  ACCELERATION 

Ok 

OMEGA  = 

ROTATIONAL  ANGULAR  VELOCITY  OF  EARTH 

C* 

PHI  - 

LATITUDE  OF  LOCATION  (X-Y)  (RADIANS) 

c* 

K = 

VERTICAL  UNIT  VECTOR 

C-k 

1/ 

K X V =■ 

CROSS  PRODUCT  OF  K AND  V 

c ^ 

C'k 

A IS  COMPUTED  FROM  THE  EI'PRESSION  j 

C k 

C k 

A - 

GkGRZ  - Gk(GRT.'T)k(Z-ZSURF) 

C k 

WHERE 

Ck 

G * 

GRAVirr' 

C'k 

Z - 

ELEVATION  OF  A CONSTANT  PRESSURE  SURFACE 

Ck 

ABOVE  LOCATION  (X,Y) 

C k 

GRZ  - 

HORIZONTAL  GRADIENT  OF  Z 

C k 

T = 

TEMPERATURE  AT  SPATIAL  LOCATION  (X,Y,2) 

C'k 

GPT  = 

HORIZONTAL  GRADIENT  OF  T 

Ck 

ZSUPF  = 

ELEVATION  AT  LOCATION  (X-Y) 

C'k 

C'k 

INPUTS 

: 

C'k 

X = 

UTM  X COORDINATE  OF  INPUT  LOCATION 

Ck 

1 ® 

UTI1  COORDINATE 

Ck 

ZSURF 

SEE  ABOVE 

C k 

AA ( . , . ) « 

COEFFICIENTS  OF 

C k 

EB ( . . . ) = 

UPPER  AIR  DATA  INTEPPOLATTON 

C k 

CC  t . . . ) = 

PLANES  (PASSED  VIA  'COEF-"  COMMON) 

Ck 

OUTPUTS: 

Ck 

V! ; = 

X COMPONENT  OF  GEOSTPOPHIC  UIND 

C k 

\jy  . 

Y COMPONENT  OF  GEOSTPOPHIC  WIND 

C k 

LOCAL 

v'APIABLES: 

Ck 

PHI  « 

SEE  ABOVE 

C k 

OMEGA  « 

SEE  ABOVE 

C'k 

G ’ 

SEE  ABOVE 

Ck 

L!  • 

CONSTANT  PRESSURE  LEVEL  JUST  A30VE  SURFACE 

Ck 

T • 

SEE  ABOVE 

C k 

i.  * 

SEE  ABOVE 

C k 

GRZX  » 

X COMPONENT  OF  GRZ 

C'k 

GRZX  • 

V COMPONENT  OF  GPZ 

C k 

GRTM  • 

X COMPONENT  OF  GPT 

C k 

GPTY  » 

Y COMPONENT  OF  GRT 

Ck 

h;<  • 

X COMPONENT  OF  A 

Ck 

A’v'  • 

COMFOHENT  OF  A 

Ck 

c 
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INCLUDE  COEF 
C 

DATA  OMEGA 'r.272E-5/,  G/9.3'',  CONVRT/1 .571E-4/' 

C 

C 

C«  DETERMINE  LATITUDE  FROM  UTM  Y COORDINATE 
PHI  = 'ruCONVRT 
C 

Cf-'K  DETERMINE  OF  050.700,500  MB  PRESSURE  SUPFACES  IS  CLOSEST  TO 

L K'K  BUT  ABOVE  GROUND  LEVEL 
LI  = 0 
10  LI  = L1+! 

2 = Ah'LI,4:i  + SB'L1.4Vi:>l  + i::C(Ll,4M<Y 
IF  I.2SUFF . GT.  Z . I'lMD . L 1 . LT.  3 ) GO  TO  10 


i:v«  COMPUTE  TEMPEPATUPE  AT  I'X.Y-Z) 

T = hh';L1,1i  + EBi  Ll,l':M-;  + CC^Ll . 1):FY 

c 

r f.K  CCi'T'LlTE  CPADIEiiT  CQI'T'ONENTS 

Ci.:k  .001  OCCUPS  SINCE  M.V  APE  MEASUPED  IN  KILOMETERS 
GREY  = E:B' L!  .4)'k.001 
GPZV  = CC' L ! .4>  .''\00! 

GPTV;  = BB '.L  1 • 1 . 00 1 
GR~'i-'  = CC'  LI . i ■ “.001 


C 


C 


COMPUTE  1-lCP! 


OHTAL  ACCELERATION 

f c 

'.GRT:  : T; 'i'ZD  IFF'' 
'GPTY/T'  I'CCIFF' 


COiPONENTS 


COMPUTE  VELOCIT'i'  COI 'POMEi  ITS 
FACTOR  = 1 . O'- ' 2 . 0'tCi  iEGA'i'S  IN  I. PH  I ) ) 
VY  = -A'VtFACTCP 
V'l'  = A!;  P AC  TOR 


-■SP..Pti 


D-64 


SUBROUTINE  INTCQFCX. Y,N,A,B>C.NCFLAG) 


C 


c* 

C-k 

ROUTINE  INTCOF 

(INTERPOLATION  COEFFICIENTS)  CALCULATES 

C* 

COEFFICIENTS  A. 

B.C  OF  FUNCTIONS  F(X.Y)  « A+BX+CY  USED  FOR 

C>k 

INTERPOLATING  UPPER  AIR  DATA.  N LOCATIONS  ARE  GIVEN  AS  INPUT 

C-k 

N FUNCTIONS  ARE 

RETURNED  AS  OUTPUT. 

C* 

Ck 

.-kWARIABLES'-k-'k 

C-k 

C-k 

INPUTS: 

C* 

X(.) 

= X,Y  COORDINATES  OF 

C-k 

Y(.) 

• INPUT  LOCATIONS 

C* 

N 

• NUMBER  OF  INPUT  LOCATIONS 

C* 

OUTPUTS: 

C* 

A(.) 

= COEFFICIENTS  OF  OUTPUT  FUNCTIONS 

C* 

B(.) 

» COEFFICIENTS  OF  OUTPUT  FUNCTIONS 

Cif 

C(.) 

- COEFFICIENTS  OF  OUTPUT  FUNCTIONS 

c» 

NCFLAG 

- SUCCESS  FLAG 

CN< 

C 

PARAr€TER  NDlM-3 

DIHENSIOM  ><(N),  Y(N;>,  fl(N),  B(N),  C(N) 

DlhENSIOH  RCNDIM.NDIM) . RI (NDIM.HDIM) . LL(NDIM),  KKCNDIM) 

C 

C 

DO  10  I-1,NDIM 

DO  10  J-1,NDIM  j 

10  RCI.J)  - 0.0  I 

C \ 

DO  20  I-l.N 
R(l,2)  ■ RC1,2)+X(I) 

R(1.3)  - R(l,3)+Y(n 
R(2.2)  - R(2,2)+X(n**2 
R(2.3)  • R(2.3)+X(I)*Y(I) 

R(3,3)  - R(3.3)+Y(n-k>k2 
20  CONTINUE 
C 

C'K;K  R IS  fi  S'rT-IMETRIC  MATRIX 
C 

R ( 1 , 1)  = N 
R(2. 1)  ■ R(l,2) 

R(3.  1)  • Rn.3) 

R(3.2)  » R(2,3) 

C 

DO  30  I»l,3 
DO  30  J-1,3 
30  RKI.J)  - R(I,J) 
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CALL  i1INVi:RI.NDIM,DET.KK.LL) 
IF(ABSCDET) .LT. 1 .OE-05)  GO  TO  1000 
NCFLhG  = 1 


* 


c 

500 

C 


1 


DO  500  1=1, N 

A(D  * RHl.  l>+RHt,2)H<X(I)+RI(l,3)*Y(I) 
Bd)  = RI(2-l)+Rir2.2)*X(I)+RI(2.3)*Y(n 
CCD  = RI  (3,  D+RI  C5.2):t;X(  D+RI  C3.3)'KY(  D 
CONTINUE 
RETURN 


1000  CONTINUE 
RETURN 
END 


1 


) 

I 


SUBROUTINE  INTERP(X.Y.N.X0.Y0) 

C 

C'k 

C-k  ROUTINE  IHTERP  (INTERPOLATION)  RETURNS  A VALUE  YO  INTERPOLATED 
Ck  FROM  A TABLE  OF  H VALUES  X(.).Y(.)  USING  AN  ARGUMENT  XO.  THE 
C*  TABLE  APGULENTS  X( . ) MUST  BE  MONOTONIC  (INCREASING  OR  DECREASING) 

Ck 

C 

DI^ENSIOM  X(N),  Y(N) 

C 

C^kJk  DETERMINE  2 TABLE  ARGUMENTS  CLOSEST  TO  XO 
N1  • N-1 

C>k*  X(.)  IS  DECREASING 

C**  IF  X(.)  IS  DECREASING-  BRANCH  TO  25 

IF(X(1) .GT.X(2))  GO  TO  25 

Ckk  X(.)  IS  INCREASING 

DO  10  I=2-N1 
JJ  - I 

IF(X0.LE.X(JJ) ) GO  TO  50 
l‘J  CONTINUE 

JJ  » N 
GO  TO  50 
C 

25  CONTINUE 

DO  30  1=2, N1 
JJ  = I 

IF(X0.GE.X(JJ) ) GO  TO  50 
30  CONTINUE 

JJ  • N 
C 

50  J « JJ-1 

C'k:k  THE  TI,JO  ARGUMENTS  CLOSEST  TO  XO  ARE  X(J)  AND  X(JJ) 

Y0  = (<:Y(JJ)-Y(J))/(X(JJ)~X(J)))*(X0-X(J))+Y(J) 

C 

RETURN 

END 


n o o n o 


j 


COr-PILERCDlHG-S) 

SUEROUTIME  NAMUflL 
C 

INCLUDE  MEShGE 
INCLUDE  FILES 
INCLUDE  INTLVZ 
INCLUDE  COORD 
DIMENSION  PLEVL'^CS) 

DhTN  PLEVLS/ 85000 .0,70000 ,0, 50000 . 0/ 
DATA  P2/.2Sb2.' 


K*  READ  IN  MESOSCALE  DRIVERS  AND  SPOT  OBSERVATIONS  j 

NAMELIST  . TIFLAGS/  DELQ,TPRO,ZPPO,GENUND,NUMOBS  ! 

EEADCaNFIL.MFLAGS)  | 

IFiiNUMCBS.EO.O)  GO  TO  25  i 

READ(XINFIL,  15)  (K  INDMi  I i , L INDXC  I)  .THETAOn)  . ULJi;  I ) . VU(  I ) , I -I  | 

1 ,NUMOES)  j 

25  CONTINUE  ! 

Ki<  ESTIMATE  ACTUAL  SURFACE  TEMPERATURE  * 

ZZ  =■  ZPLACE 

CALL  INTEPPtZPP.O,FLEVLS,LEVEL,ZZ,PF> 

CALL  INTERP('ZPRO.TPRO,LEVEL.ZZ,TPE:0 
TPSITE  = TPEX  + DELOki;  100000.. •'FP)k*P2 
T3ITE  - TPSITE  KPP.  ’l 00000.0) -At P2 
C 

IFCUUMOBS.EO.O)  RETURN 
C 

WRITE  C ;OTF  IL,  35)  iK  INDK'  I ) , L INDXC I ) ,.  THETAO  ( 1 ) , UW(  I ) . VU(  I) . I = 1 , ‘ 

1 NUMOBS) 

35  FORMATC IX, 'SURFACE  OBSERVATIONS' -VIX, 'GRID  IND ICES ' . T24. 

1 ‘POTENTIAL  TEMPERATURE’ .T55. ‘U  WIND' .T71, 'V  WIND' 

2 (T2, 15, T9, I5,T35,F10.2.T53,F3.2.Tb9,F8.2//)) 

15  FORMAT(2I5,3F10.2) 

C 

PETUPN 

END 


f 

f 


■)  o o 


F 


SUBROUTINE  MESVflR 
C 

PhRAMETER  NVAR«4.  LEVELS -3 
INCLUDE  MESAGE  * 

INCLUDE  FILES 
INCLUDE  HRCDAT 
INCLUDE  INTLYZ 
INCLUDE  DATFLG 

DATA  PI,Z0,LM,RH0.AL0GF/3. 14159, .1,2, 1 , 12.6.908/ 


ESTIMATE  GENERAL  WIND  USING  MESOMODEL  )ATA 
I = 1 
C 

H = HMM(LM.  I)-ZGRDI'1M(  I) 

RMAG  = AVM f LM,  I ) *^K2+AVN  CLM,  ! ) 

AS  = 4Y  ( AVM  1 ■:  LM,  I ) Ij^kZ-I-A VN 1 ( LM.  I ) xckZ  ) /PMAG 
C 

FI  = ALOGi,H/Z0) 

F2  =■  9.G'«(  ^Fl-n-icitZ-AS  k(:f1-.5):k;k2)/(AS-2.25) 
IF (F2.lt. 0.0)  F2=0.O 


RHUK  = SQRT(RMAG/((F1-1)'.4!:«2+(AL/3):i;5k2)) 

C 

C 1 1 = Z't-'AVMl  (LM,  I ) -AVTKLM,  I ) 

C 12  =•  2YAVN 1 (LM.  I j -AVN  (LM,  I ) 

C2 1 = 4.:  AVM  1 (LM,  I ) -3YAVN (LM,  I ) 

C22  - -4:(!AViil(LM.  n+3:t'AVM(LM,  I) 

C 

D = Cl  1*C22-C21'*C12 
IF(D,EQ.0.O)  GO  TO  4305 
F3  = RHUK/2.0 
COSA  = F3;^C22/D 
SINA  • -F3:kC21/D 
GC  i 0 43 1 0 

4305  DENOM  = 3CRT(RMAG) 

COSA  = AVTKLM,  I) /DENOM 
SINA  = AVTKLM,  I) /DENOM 
4310  CONTINUE 

UK  - PHUK/(Hi:RHO) 

GENUNDd)  = Uk'TALOGF'iCOSA 
GEMUMD(2.''  =■  UK:i'ALOGF'i'SINA 
C 

c 

UPITE(X0TFIL,5030) 

5000  F0RMAT('  SURFACE  IJIND  GIVEN  BY  MESOMODEL  DATA  ANALYSIS’//) 
C 

NVFLAG(3)  - 1 

RETURN 

END 
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SUBROUTINE  MINV 


PURPOSE 

INVERT  A MATRIX 
USAGE 

CALL  MINV(A.N,D.L,M) 

DESCRIPTION  OF  PARAMETERS 

A - INPUT  MATRIX.  DESTROYED  IN  COMPUTATION  AND  REPLACED  BY 
RESULTANT  INVERSE. 

N - ORDER  OF  MATRIX  A 
D - RESULTANT  DETERMINANT 
L - l.■JGRI^'  VECTOR  OF  LENGTH  N 
M - UCiRK  VECTOR  OF  LENGTH  N 

REMARKS 

MATRIX  A MUST  E'E  A GENERAL  MATRIX 

SUEPCUTINBS  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
NONE 

METHOD 

THE  STANDARD  GAUSS-JOPDAN  METHOD  IS  USED.  THE  DETERMINANT 
IS  ALSO  CALCULATED.  A DETERMINANT  OF  ZERO  INDICATES  THAT 
the  matrix  IS  SINGULAR. 


SUBROUTINE  MINV(,A.N.D.L.M) 
D HENS  ION  A(l).L(l).M(l) 


IF  A DOUBLE  PRECISION  VERSION  OF  THIS  ROUTINE  IS  DESIRED.  THE 
C IN  COLUMN  I SHOULD  BE  REMOVED  FROM  THE  DOUBLE  PRECISION 
STATEMENT  i..JH!CH  FOLLOMS. 

DOUBLE  PRECISION  A. D . B IGA . HOLD 

THE  C MLIST  ALSO  BE  PEMO'-'ED  FROM  DOUBLE  PRECISION  STATEMENTS 
APPEARING  IN  OTHER  ROUTINES  USED  IN  COtIJUIICTION  UlTH  THIS 
ROUTINE. 

THE  DOUBLE  PRECISION  VERSION  OF  THIS  SUBROUTINE  MUST  ALSO 
CONTAIN  DOUBLE  PRECISION  FORTRAN  FUNCTIONS.  AB3  IN  STATEMENT 
10  MUST  EE  CHANGED  TO  DABS. 


C**  SEARCH  FOR  LARGEST  ELEMENT 
C 

D-1.0 

NK=-N 

DO  80  K-1,N 

NK-NK+N 

L(K) »K 

mK)-K 

KK«NK+K 

BIGA=A(KK) 

DO  20  J-K.N 
IZ=N>t:(J-n 
DO  20  I-K.N 
IJ=IZ+I 

10  IF(  ASS(BIGA.i-  ABSCACIJ)))  15.20.20 
15  BIGA»A(IJ) 

l«:k)»i 

MCK)  »J 
20  CONTINUE 
C 

C**  INTERCHANGE  ROUS 

C 

J-L(K) 

IFtJ-K)  35.35.25 
25  l<I«K-N 

DO  30  I-l.N 
KI«KI+N 
HOLD— ACKD 
JI=KI-K+J 
A(pa)=A(.JI) 

30  ACJn  =HOLD 
C 

C**  INTERCHANGE  COLUMNS 

C 

35  I«M(K) 

IF(I-K)  45.45.38 
38 

DO  40  J = 1 . N 
JK-NK+J 
JI-JP+J 
HOLD— A(JK) 

A(JK>-A(JI) 

40  A(JI)  »HOLD 
C 

Ck*  DIVIDE  COLUMN  BY  MINUS  PUTIT  (VALUE  OF  PIVOT  ELEMENT  IS 

Ck*  CONTAINED  IN  BIGA) 

C 

45  IF(BIGA)  43.46.48 

46  D-0.O 
RETURN 
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X 


I 

< 

i 


48  DO  55  I«UN 

IF(I-Kj  50,55.50 
50  IK=NK+I 

h(!K)=A(IK)/C-BIGPI) 

55  CONTINUE 
C 

C*>K  REDUCE  M8TRIX 

C 

DO  65  I»1.N 
IK=NK+I 
HOLD=A( IK) 

IJ=I-N 
DO  63  J=1,H 
IJ-IJ+N 

IFU-K)  60,65.60 
60  IF(J-K)  62,65.62 
62  KJ’IJ-I+K 

A ( IJ ) =HOLD't<A  ( K J ) +A  ( I J) 

65  CONTINUE 
C 

C-K*  DI'-'IDE  ROW  BY  PIVOT 

C 

KJ=K-N 
DO  75  J=1.M 
KJ-’k'J+M 

IF(J-K)  70.75,70 
70  A(KJ) =A(KJ)/BI&A 
75  CONTINUE 
C 

C-^  PRODUCT  OF  PIVOTS 

C 

D = D ‘+8 1 b H 

C 

Ck:k  replace  pivot  by  RECIPROCAL 

C 

A(KK) =1 .0/BIGA 
30  CONTINUE 
C 

Cick  final  ROIJ  AND  COLUMN  INTERCHANGE 

C 

K=N 

100  K-fK-l) 

IF(K)  150.150.105 
105  I-L(K) 

IF(I-K)  120,120.103 
108  JQ-Nrt:(!<-1) 

JR-Nk( I-l) 

DO  110  J-l.N 

JK-JO+J 

HOLD«A(JK) 

• JI-JR+J 

A(JK)— H(JI) 
no  A(JD  -HOLD 


) 

1 


I 


f 


,» 

A 
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120  J-M(K) 

IF(J-K)  100.100,125 
125  KI-K-N 

DO  130  I-l.N 

KI-KI+N 

HOLD-A(Kn 

JI-KI-K+J 

A(KI)=-Aai) 

130  A(jn  -HOLD 
GO  TO  100 
150  RETURN 
END 


o f)  o n rt  n r<  (~>  o n n p o 


SUBROUTINE  PRQFLS 


**  THIS  ROUTINE  OBTAINS  FUNCTIONS  UHICH  INTERPOLATE  IN  SPACE  AND 
K'K  UPDATE  IN  TIME  THE  UPPER  AIR  PROFILES  OF  T,  U.  V,  AND  Z FOR  THE 
350,  700,  AND  500  MILLIBAR  PRESSURE  LEVELS 


INCLUDE  I€SAGE 
INCLUDE  FILES 
INCLUDE  COORD 
INCLUDE  MRCIPF 
INCLUDE  MRCDAT 
INCLUDE  COEF 
INCLUDE  DATFLG 

D irtENS  ION  LI  AD  ATA  (LEVELS,  HUAX,  NV'AR) 

D I HENS  I ON  GUD  ATA  ( 4,  I TT , NG'JX,  N VAR ) 

EOU IVALENCE  ( GUD  ATA  ( 1 , 1 , 1 , U , TGIJ(  1 , 1 , 1 > I 

D I ME  N S 1 0 N U A C 0 P S ( N L VL , N U A : M3 ) 

EOU  r.'HLENCE  (UACCRS  ''1,1,1 ') , PPE3 (1,1)) 

DIMENSION  A'lNGUX).  S'TIGUX),  C(NGUK) 
DIMENSION  AGUCLE'-’ELS,  ITT,NVAR) 

DIMENSION  3GI.JI' LEVELS.  ITT.NVAR) 

DIMSMSIQN  CGU' LEVELS. ITT.NVAR) 

DIMENSION  X(NLVL) , 't'iTILVD 
DiriENSION  VLOC(NGUX).  YLOCdlGWO 
DIMENSION  PLE'-LS (LEVELS) 

DIMENSION  lUAVAR(NVAR) 


DATA  PLEVLS/85000.0.  70000. O,  50080.0/ 

DATA  lUAVAR  .■6,7, 3, 4/ 

DATA  P2  -.2852/ 

'KM<  INITIALIZE: 

NCFLAG  = 0 
IFLGl  =■  0 
ISKIP  • 0 
NGl  = NGUIUM(l) 

N&2  =■  NGUNUM'Z) 

DO  10  ITP-1.2 
DO  10  IVAR’l.NVAP 
DO  10  L»1.LE'/ELS 
AGIKL, ITP, IVAR)  -0.0 
BGU(L. ITP. IVAR)  - 0.0 
CGUCL, ITP, IVAR)  - 0.0 
10  CONTINUE 
C 

C>t<K  CHECK  GUC  DATA 

C-kx  N&2.LT.3  lEANS  NO  GLC  PLANES  APE  AVAILABLE  FOR  UPDATING 
Cxx  SEE  IF  UA  DATA  IS  RECENT 
IF(NG2.LT.S)  GO  TO  800 
IFLGl  - HG2 
C 
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GENERATE  SPATIAL  INTERPOLATION  FUNCTIONS  FOR  GUC  PROFILES  AT 
C**  SirULATIOM  TIME 
ITR  » 2 
100  CONTINUE 

Ml  » NGL'NUM(ITR) 

DO  105  J«1>M1 
XLOC(J)  » XGRDdTR.J) 

105  YLOCd)  = YGRDCJTR.J) 


■K*  OBTAIN  BASIS  FUNCTIONS 

CALL  INTCOF «, XLOC , YLOC . NGUNUMC I TR ) , A , B , C . NCFLAG ) 

IF(NCFLAG.EQ.-l)  GO  TO  300 

GENERATE  DATA  INTERPOLATION  FUNCTIONS 
DO  115  L=l, LEVELS 
LL  - L+1 

DO  115  ISTH-IMU 

■K>K  TEIPERATURE  IS  CONVERTED  TO  POTENTIAL  TEI-PERATURE 

RF  = GUDATACLL.  ITR>  ISTN,  l.VKC  100000. 0/'PGUCLL,  ITR,  ISTN) ) 

AGUi;L,ITR,1)  « AGU(L,  ITR,  l)+RF:f'A(  ISTM) 

BGU(L.ITR.l)  » BGU(L.  ITR,  l)+RF'KB(ISTfi;i 
CGIJ(L,ITP,n  =»  CGIJ(L,  ITP,  n+RF:+-C(  isrn) 

1 15  CONTINUE 

DO  120  IVAR«2.4 
DO  120  L=l, LEVELS 
LL  = L+1 

DO  120  ISTH=r,Ml 

AGUCL,  ITP,  IVAR)  • AG1J(L,  ITR,  IVAR)+GUDATA(LL.  ITP,  ISTN,  IVARj-cAC  ISTN) 
BGU  ( L , I TR . I VAR ) - BGU  ( L . I TR , I VAR ) +GU:  )TA  ( LL , I TP . ! STN , 1 VAR ) -iS  ( ! STN ) 
CGlJt;L,  ITR,  IVAR)  » CGLKL.  ITR,  IVAR) +GUDATA(LL,  ITR,  ISTli,  IVAR)-i€(  ISTN) 
120  CONTINUE 

KrK  INTERPOLATION  FUNCTIONS:  AACL,  I)+BB(L,  I)*K+CC(L,  D kY 

foK  1 = 1:  POTEMP  1-2:  UUIMD  1-3:  'VI.JIND  1-4:  ELEVATION 

**  L-l:  850  LEVEL  L-2:  700  LEVEL  L-3:  500  LEVEL 

IF(MIJANIjM.EQ.O)  GO  TO  200 

k;k  ITR-1  MEANS  PLANES  HAVE  BEEN  OBTAINED  AT  BOTH  UA  AND 
■K-K  SIMULATION  TIME 

IF(I"-P.EQ,  1)  GO  TO  125 

!:-!<  ITR-2  MEANS  THE  S IMIJLATION-TIME  PASS  HAS  JUST  BEEN  COIPLETED 
CHECK  TO  SEE  IF  THERE  APE  AT  LEAST  3 GUC  STATIONS  FOR  UA  TIME 
IFfMGl.LT.3)  GO  TO  300 
ITR-1 
GO  TO  100 
125  CONTINUE 
C 
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CfcK  flCCUIPE  UA  DATA  AT  S50,  TOO,  SCO  LEVELS 
DO  195  ISTN=l.HUHNIjri 

CK:t<  load  upper  air  pressure  profile 

DO  140  I=1,HLVL 
140  XCI)  » PRES  Cl, I STM) 

C 

CH^^K  LOOP  OVER  VARIABLE  TYPES  AND  ISOBAR IC  PRESSURE  LEVELS 
DO  190  IVAR=1,MVAR 
JVAR  * lUAVARCIvAR) 

DO  1S0  L=l, LEVELS 
C 

C'K>K  INTERPOLATE  FROM  PROFILES  TO  GET  850,700,500  MILIBAP 
C'k*  TEMPERATURES,  WINDS-  AND  ELEVATIONS 
DO  160  I=I,MLVL 

IbO  Y(D  = UACORSCI, ISTN.JVAR) 

CALL  INTERP(X,Y,.NTR(  ISTN) , PLEVLS (L) , UADATA (L,  ISTN,  IVAR)) 

C 

Ck:k  UPDATE  UA  DATA  WITH  GWC  DATA 
IFCISKIP.EQ. 1)  GO  TO  ISO 

UADATACL,  ISTN,  IVAF:.'  = UADATACL.  ISTN,  IVAR) +AGW(L,2,  IVAR) 

M -AGWCL,  1,  IVAR'i+CBGWi'L,2.  IVAR)-BGW(L,  1 , IVAR) ) :i:XSTA ( ISTN) 
M +':CGW(L.2.  IVAR)-CGW(L,  1,  IVAR) ) -kYSTA ( ISTN) 

ISO  CONTINUE 
C 

190  CONTINUE 
195  CONTINUE 
C 

CK^k  GENERATE  FUNCTIONS  WHICH  INTERPOLATE  UPDATED  UA  DATA: 
BRANCH  ON  THE  NUMBER  OF  UA  STATIONS 
IF.(NUANUM.GE.3)  GO  TO  500 
GO  TO  (300.400),  NLIANUM 
C 

200  CONTINUE 

DO  210  L=l. LEVELS 

DO  210  IVAR-1 .NVAP 

A A <■  L , I VAR ) » AGW  ^ L , 2 . I VAR ) 

BB  f L , I ' ■■'AR ) * BGW  t L . 2 . I VAR ) 

213  CC(L,IVAP)  • CGWCL.O, IVAR) 

GO  TO  1000 

300  CONTINUE 

DO  310  L»l, LEVELS 
DO  310  I 'VAR  • 1 , N VAR 

hA (L,  I'vAR)  • UADATA (L,  1 , I'v'AR) -BGWCL, 2,  IVAR) :t;><STA ( 1 ) - 
M ilGW  f L , 2 , I VAR ) -kYSTA  ( 1 ) 

EBCL,IVAR)  • BGW(L,2, IVAR) 

310  CC(L,IVAR)  = CGW<'L,2,  IVAR) 

GO  TO  1000 


C 

400  CONTINUE 

DELX  • XSTft(2)-NSTAi:n 
DELY  « YSTh(2Y-YSTA( 1) 

DST  = DEL:>k-*;2  + DELY-km;2 

DO  410  L-1.  LEVELS. 

DO  410  IVAR-l.HVAR 

DELZ  - UhDAThCL,2.  IVAP)-LiADflTA(L- 1.  IVfiR) 

GRADTA  • CGIJ(L.2>  IVARj  i<DELX-BGUI(L,2.  IV'AR)'t<DELY 
BBtL-IVAP)  - i:DELZ.uDELX-GRhDTh*DELY)/'DST 
CCCL-IVhR)  • (DELZ+DEL'i'+GPADTAm<DELX)/DST 
410  ArtiL.IVAP^  - UhDhThCL-Z- IVhR)-BBi;L.  IVAP>^t!:<STA(2)-CC(L.  IVAR)>kYSTA( 
M 2) 

GO  TO  1000 
C 

500  CONTINUE 

CALL  I MTCOF  I'  YSTA , YSTA , NU ANUM.  A . B . C , HCFLPG ^ 

IFCNCFLAG.EO.-l)  IFLGl-2 
IFCIFLGl.EO.Z)  GO  TO  400 
DO  510  I VAR -1. AVAR 
DO  510  L-1. LEVELS 
AA(L,IVAR>  - 0.0 
BB(L.IVAR>  • 0.0 
510  CC(L.IVAR)  • 0.0 
DO  515  IVAR’l.NVAP 
DO  515  L>1. LEVELS 
DO  515  ISTN-l.NUAMUM 

AA(L.  IVAP'J  • AAiL.  I VAP) -AjftDATA (L,  ISTN.  IVAR)  K-A':  ISTU) 

BBlL.IVAP)  - EBa.  1 VAR) -HJhDATA(L.  ISTN.  rv'AR)>t«(  ISTN » 

515  CC(L.IVAR)  • CC(L. IVAR)+UADATA(L. ISTN. IVAR)^C( ISTN) 

GO  TO  1000 
C 

C^K*  THIS  IS  A TROUBLE  POINT: 

C't^K  PROGRAn  FLCU  HERE  INDICATES  SOME 
SHORTCOMING  IN  THE  DATA 
800  CONTINUE 
ISKIP  - 1 

IDIFF  - IDIFTM^TI^E.UPTIME( D) 

CHOK  IF  UA  DATA  IS  OLD  AND  GUC  INFO  AT  SIMULATION  TIME  IS 
C**  INCO!-;PLETE.  PUNT 

IF( IDIFF. GT. 3. AND. NG2.lt. 3)  RETURN 
Ck;k  if  UA  DATA  IS  OLD  AND  CAN'T  BE  UPDATED.  USE  GUC 
C'K*  SIMULATION-TIME  PLANES 

IF( IDIFF.GT.3)  GO  TO  200 

C!'*  IF  UADATA  IS  RECENT.  USE  IT  (AND  POSSIBLY  GIJC  INFO) 

C*M<  TO  GET  PLANES 

IFLGl  =>  MAX3(NUANUM.NG2) 

IF (NCFLAG . EQ . - 1 ) IFLGl -NUANUM 
GO  TO  125 
C 

1000  CONTINUE 
RETURN 
END 


I 
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C0MP!LER(DiHG=3) 

SUBROUTINE  3RFTMP 
C 

INCLUDE  MESaGE 
INCLUDE  COORD 
INCLUDE  MRCIPF 
INCLUDE  FILES 
INCLUDE  MRCDhT 
INCLUDE  COEF 
INCLUDE  INTLYZ 
INCLUDE  DATFLG 
C 

D PENSION  PLEVLS (LEVELS).  T(LEVELS).  Z (LEVELS) 
DhTh  PLEV’LS.'SSOOO . 0 . 70000 .0.50000 . 0/ 

DATA  P2-'.2962/ 


li 


USE  PROFILES  AND  SURFACE  STATION  DATA  TO  ESTIMATE 
POTENTIAL  TEMPERATURE  AT  SITE 

SLIMD  = 0.0 
DO  200  I = 1.NSFNL1M 

DO  100  L = l..  LEVELS 

T(L)  = AA(L,  1)+BB(L.  1):k>(ST3(I)+CC(L,  D-cYSTSCI) 

Z ' L ) = A A L . 4)  +BB  t L . 4)  'L'-iSTS  ( I ) +CC  ( L . 4)  :tA''STS  < I ) 

100  CONTINUE 

KK  PROJECT  POTENTIAL  TEMPERATURE  TO  SURFACE  AT  STATION  SITE 

CALL  I N-^ERP  ( Z . T,  LEVELS . ZSTS  ( I ) , TT) 

■k::<  CONVERT  ACTUAL  SURFACE  TEMPERATURE  TO  POTENTIAL  TEMP 

CALL  I ' Z . PLEVLS . LEVELS . ZSTS  ( I ) . PP ) 

TPSUF F = TSSF ' I j * ( 1 00000 . 0/PP ) ;k:i:P2 

t*  ACCUMULATE  SUM  FOP  AVERAGE  SURFACE  HEATING 

SLir  !D  * SUt  ID  + ( TPSIJEF -TT)  *T3SF  ( I ) /TT 
200  CONTINUE 

DELO  =■  SUtiD'NSFNUM 

rk  PROJECT  POTENTIAL  TEMPERATURE  TO  SURFACE  AT  SITE  AND 

KM;  APPLY  CORRECT  ION 

■k:k  CALCULATE  TSITE  FOP  LATER  USE 

ZZ  = ZPLACE 


C 

2000 

C 


CALL  INTERP(ZPRO. PLEVLS. LEVELS. ZZ.PP) 
CALL  I NTEPP  f ZPPO . TPRO . LEVELS . ZZ , TPEX) 
TPSITE  = TPEX  + DELQk(  100000. /PP)k':'P2 
TSITE  » TPSITEt.(PP/100COO.0)-'<TP2 


L'PITE(XOTFIL.2O0O) 

FOPMATV  SURFACE  TEMPERATURE  GIVEN  BY 


SURFACE  STATIONS'//) 


NV'FLAG(2)  • 1 

RETURN 

END 
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CQ^PILER(DIAG=3) 

SUBROUTINE  UAVAR 
C 

INCLUDE  MESAGE 
INCLUDE  COORD 
INCLUDE  MRCIPF 
INCLUDE  FILES 
INCLUDE  MRCDAT 
INCLUDE  INTLYZ 
INCLUDE  COEF 
INCLUDE  DATFLG 
C 

DIMENSION  SUM(4) 

DIMENSION  PLEVLSCS) 

DATA  PLE VLS.'SSOOO . 0 . "0000 . 0 - 50000 . 0/ 

DATA  P 1/3. 14159/ 

C 

C 

C 

C>K*  IF  NO  UA  PROFILES  EXIST,USE  CLOSEST  SURFACE 
CH«K  STATION  DEFAULT 

IFCIFLG1.lt. 2)  GO  TO  8000 

C'K*  IF  LESS  THAN  TUO  STATIONS  EXIST.  USE  CLOSEST  SURFACE 
Ci<*  SURFACE  STATION  DEFAULT 

IF(NSFNUM.£Q.0)  GO  TO  3000 

C**  ESTIMATE  GENERAL  UIND  USING  UA  PROFILES  AND  SURFACE  STATION  DATA 
C 

DO  100  1=1,4 
100  SUMCI)  =0.0 
C 

DO  200  I-l.NSFNUM 
C 

C^*  COMPUTE  GEOSTPOPHIC  UIND  AT  EACH  SURFACE  STATION 
CALL  GEOUND ( I'STS ( I > . YSTS C P . ZSTS ( I) . '/Y:i 
UR  I TE  c XOTF I L . 999 1 '/X,  W 
C 

C^*  CONVERT  VX..VY  TO  SPEED  AND  DIRECTION 
SPEED  = SC!RTCVX;K:i:2+VV't:H<2) 

IF (SPEED. EQ.0)  GO  TO  3000 
I F C W . EQ . 0 . 0 ) VX- (.0001) 

THETA  = AThN(VY/VX)>k1S0.0/PI 
IF(V'X.LT.0.0)  THETA- 1 30. 0+THETA 
THETA  - AMOD(2?3.0-THETA..360.0) 

UR  I TE ( XOTF I L . 999 ) UDSF ( I ) , THETA . USSF ( I ) , SPEED 
C 

C**  ACCUMULATE  SUMS 

TMP  « UDSF(I)  - THETA 
SUM(l)  - SUM(1)+TMP 
SUM(2)  - SUM(2)+TMP>k*2 
C 

TMP  ■ fUSSF(I)-SPEED)/SPEED 
SUM(3)  - SUM(3)+TMP 
SUM  (4)  - SUM(4)+TrF*TMP 
200  CONTINUE 
C 


D-79 


1 


1 

r. 

J 


I 

f 

1 

I 


/ 

I 

1, 

( 


C-tcK  COMPUTE  COPPECTICMS  PND  RELPTIVE  DEVIATIONS  OF  CORRECTIONS 
RSDD  > 0.0 
RSDS  =0.0 

DCCR  = SUn(  i;i/NSFNUN 

RSDD  = SQRT(  CSLIM(2)  -NSFNUM'KDC0R:'t<*2)  / (NSFNUM- 1 ) ) /ABS  (DCOR) 

SCORP  • SUM(3).-'NSFNUM 

RSDS  = S0RTC(SUM(4:»-NSFNUMN<SC0PP’t<=t<2).'fNSFNUM-n)/ABS(SC0RP) 
yRITEi;X0TFIL..999j  DCOR,  SCORP -RSDD,  RSDS 
C 

C-K-K  COMPUTE  GEOSTROPHIC  UIND  AT  SIMULATION  SITE 
XX  = XPLACE 
'.''i-'  = YPLACE 
ZZ  = ZPLACE 

CALL  GEOIJNDC:::;,YY,ZZ,VX,VV>  ; 

C-t-:*;  CONVERT  TO  SPEED  AND  DIRECTION 

SPEED  = S0PTi;VXY'k2+VY:x^2)  I 

iFO'''X.EQ.0.0;i  VK'=VY'M<(  .000  1 ) \ 

!F(v:-:.EQ.o.o;i  go  to  gooo  i 

THETh  = hTANi;VV.V'XVk180.O,'PI  | 

IFOv'TLLT.O.O;  THETA  = 130 . 0+THETA  | 

THETA  = AMODCZrO.O-THETA. 360.0)  | 

L:PITEi::'.:jTFIL,999)  THETA, SPEED  I 

^ i 

CK:k  DECIDE  UHETHEP  TO  APPLY  COPPECTIONS  OR  USE  CLOSEST  STATION  READINGS  f 

'.r  tRSDD.LT.  .5)  GO  TO  510  | 

THETA  = UDSFU)  i 

l.•P!TE'.XOTFIL,5000)  ' i 

GO  TO  520  j 

510  THETA  = THETA+DCOP 

U'PITE(:;OTFIL,550O)  “ I 

520  CONTINUE  | 

C 

IF^RSDS.LT. .5)  GO  TO  530 

SPEED  = ySSF(l)  : 

i.oPiTE';;:oTFiL,faO0O)  i 

GO  Tu  540  ‘ 

530  SPEED  = SPEED^^C  1+SCOPP) 

UPITECXOTFIL-ESOO) 

C 

540  CGiriNUE 

c»<K  reconvept  to  xy  coordinates  1 

c i 

theta  - ( 270-theta )*P 1/180.0 
GENUNDCl)  = SPEED*COS (THETA) 

GENUND(2)  - SPEED'+'S  IN  (THETA) 

NVFLAG(3)  - 1 
RETURN 
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.3000  CONTINUE 

IJRITE(XOTFIL.3050) 
THETA  ■ UDSF(l) 
SPEED  - USSF(l) 

GO  TO  540 
C 
C 


999  FORMATC  ) 
5000  FORmT(' 
5500  FORMATC' 
6000  FORMATC' 
6500  FORMATC' 
8050  FORMATC' 
END 


UIND  DIRECTION  GIVEN  BY  CLOSEST  SURFACE  STATION'//) 
UIND  DTRECTION  GIVEN  BY  GEOSTROPHIC  MODEL'//) 

UIND  SPEED  GIVEN  BY  CLOSEST  SURFACE  STATION'//) 

UIND  SPEED  GIVEN  BY  GEOSTPOPHIC  MODEL'//) 

UINDS  GIVEN  BY  CLOSEST  SURFACE  STATION’//) 
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SUBROUT I NE  flCCSOL ( I PT.  flSQL . flCNORM) 


C 


c* 

c* 

A 'L  ESTIMATES 

THE 

INTEGRAL  OF  THE  RESIDUAL  ACCELERAT:  .>  .3..1UARED 

c* 

OVhK  A LOCAL  VOLUME 

ELEMENT. 

c» 

c» 

INPUTS: 

c* 

IPT 

- 

INDEX  SPECIFYING  LOCAL  BOX  TO  BE  USED 

c* 

HDK.) 

- 

FROM  .--LOCAL/ 

c* 

HD2(,) 

- 

FROM  /LOCAL/ 

c* . 

ARC.) 

- 

FROM  /LOCAL/ 

c* 

ERC.) 

- 

FROM  /LOCAL/ 

c* 

BUOYC.) 

- 

FROM  /LOCAL/ 

c* 

ULC.) 

- 

FROM  /LOCAL/ 

c* 

VLC.) 

- 

FROM  /LOCAL/ 

c* 

DD 

- 

FROM  /INPPPM/ 

C-K 

OUTPUTS : 

C* 

ASQL 

- 

ESTIMATE  OF  ACCELERAT  I GM  SOUkiPE  FES  I DUAL 

c* 

OVER  LOCAL  VOLUME  ELEMENT 

Ok 

ACNRML 

- 

NORMAL  COMPONENT  OF  ACCELEPATION 

c* 

IMPORTANT  LOCAL 

VARIABLES: 

c* 

U 

- 

SURFACE  NORMAL  VELOCIT','  1 UP  TO  FACTOR' 

c* 

COMPUTED  FROM  MASS  CONSEPVATNDN  fEOU  iPE.  lENT 

c* 

c 

INCLUDE  LOCAL 
INCLUDE  DRIVER 
INCLUDE  IHPPRM 
C 

DIMEN'-'"N  IPO  I NT  (4, 4) 

DATA  i.  jINT  /1. 2. 9, 8,2,3, 4-9, 9. 4, 5.(3. 3. S.S. 7- 
C 

C»*  INITIALIZE: 

11  - IPOIUT( 1, IPT) 

12  - IP0INTC2, IPT) 

13  - IP0INT(3, IPT) 

14  - IPOINT(4. IPT) 

C 

C:M<  COMPUTE  BOX  AVERAGE  (JIHDS,  SLOPES-  AREA  FACTOR. 
C**  BUOYANCY.  AND  PROFILE 

UA  - (UL(Il)+UL<I2)+ULn4)+IJL(I3))''4.0 
VA  • (VL(Il)+VL(I2)+VL(I41+V'Ln3)).'-4.0 
SLI  - (HDl(Il)+HDl(I2)+HDlCI3)+HDl(14)).-4.0 
SL2  ■ (HD2(Il)+HD2(I2)+HD2(I3)+HD2(I4n  /4.0 
ARAV  - SQRT(1.+SL1'KSL1+SL2:kSL2) 

8AV  • (BU0Y(Il)+BU0Y(I2)+BUOY(I4)+BU0Yi:i3))/4.0 
ERAV  • (ER(Il)+ER(I2)+ER(I4)+ER(I3))/4.0 
U ■ AR( I3)*ULt I3)+AR( I4)*VL( 14) 

1 -AR(I1))WJL(I1)-AR(I2)m<VLCI2) 

U - U/ERAV 
C 
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k!k  compute  cartesian  components  of  residual  acceleration 

a;  = UL<Il)'f-'UL(Il)-KAR(Il).ER(Il.'i+UL(I2)-KVL(I2)H;AR(I2)/ER(I2) 

1 -lJLn3)>KUH.I3)’KAR(I3)/ER(I3)-UL';i4)m(I4):KAR(I4)/'ER(I4) 

2 -HJtOA 

A2  • VL  <in  -WL  (ll)*f)R(Il ) yER  ( 1 1) +VL(I2)  *'yL(I2)*RR(  12>yER(  12) 

1 -V L I 1 3 I KUL  (13)  'K'AR  (13)  - ER  ( 1 3 ) -VL  ( 1 4)  h<VL  ( 1 4)  =kaR  ( 1 4)  /ER  C 14) 

2 +U  i-'v'A 

A3  • (UL(Il)-^UL(Il);WDl(Il)+VL(Il)  kUL(  1 1):WD2(I1))-KAR(I1)^'ER(I1) 

1 +(UL(I2):A'L(I2):t:HDl(12)+VL(I2)tcVL(I2)'KHD2a2))M:AR(I2)/ER(I2) 

2 - ( UH  1 3 I 'MIL  ( 1 3 ) '+HD I ( 1 3 ) +VL  ( 1 3 ) i^^UL  (13)  -i-HLiZ  (13))  ► AR  (13)  /ER  (13) 

3 - (UL  ( 14)  -KVL  ( 14)  :mD  1 ( 14)  +VL  ( 14)  -I'VL  ( kHD2  ( 14) ) i!AR(  14)  / ER  ( 14) 

4 + Ui<(lJA:v5Ll+VAN<3L2) 


NORMAL  COMFONEHT  OF  ACCELERATION 
FTP  » (-SL  1+H  1-SL2  ♦AC+AS) ' ARAV:t!:K2 
hCNOFM  - FTP. DD 

CxK  FEtWV'E  NORMAL  COMPONENT 
Hi  - h1+SL1-*FTR 
A2  » M2+SL2tFTP 
A3  = a:-FTP 

C-ff  ADD  SURFACE  PARALLEL  COMRONENTS  OF  BUOYANCY 
A!  • A1  DD  ipAVrKRAV I SL  1 
h2  * A2  rD'Cj-i  "HPAVt-SLD 
A3  - h3  + DD ‘Eh M ARAV- 1 . 0.'  hRhV 

•C  t kf  K ♦.  r V K • . ( • I I M •(  ' I M I t t T.  t 


SUBROUTINE  flCCSQR(Vl, V2. ACSQ.fiCNORM) 


C 


c* 

C* 

ACCSQR  CALLS 

ACCSQL 

TO  OBTAIN  ESTIMATES  OF  THE  LOCAL  ACCELERATION 

C* 

RESIDUAL  AND 

NORMAL 

COMPONENT  OF  ACCELERATION.  LOCAL  ESTIMATES 

C:u 

FROM  UPSTREAM  BOXES 

ARE  AVERAGED  AND  RETURNED  TO  RELAX. 

C* 

c* 

INPUTS: 

VI 

U-COMPONENT  OF  UIND  AT  LOCAL  POINT  9 

c* 

V2 

- 

V-COMPOMENT  OF  UIND  AT  LOCAL  POINT  9 

CK 

NSET(.) 

■ - 

FROM  / SETBOX/ 

c* 

c* 

OUTPUTS: 

UL(9) 

IN  /LOCAL/ 

c* 

VL(9) 

- 

IN  /LOCAL/ 

c* 

ACSQ 

- 

LOCAL  CONTRIBUTION  TO  ACCELERATION  RESIDUAL 

c* 

ACNORM 

- 

NORMAL  COMPONENT  OF  ACCELERATION 

c* 

C 

INCLUDE  LOChL 
INCLUDE  INPPRM 
INCLUDE  SETBOX 
C 

C**  INITIALIZE: 

ULCS)  - VI 
VL(9)  • V2 
ACSQ  ■ 0.0 
ACNORM  » 0.0 
C 

DO  100  1-1,4 

IFiNSETi I) .EO.O)  GO  TO  100 
CALL  ACCSQL( I.ASOL,ACNRnL) 

ACSQ  - ACSQ  + ASQL 
ACNORM  - ACNORM  + ACNRML 
100  CONTINUE 
C 

C-k;k  compute  average  of  local  RESIDUES 

ACSQ  - ACSO^BOXAV 
ACNORM  • ACN0RMi€0XAV 
RETURN 
END 
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SUBROUTINE  DELTA (VI . V2. T. FLDVSQ. ACSQ . DTT. OUT. DVT) 
C 


C’K 

Cl! 

DELTA  ESTIMATES 

PARTIAL  DERIVATIVES  OF  THE  ACCELERATION  RESIDUAL 

C 'k 

UITH  RESPECT  TO 

VELOCITY  COMPONENTS  AND  PARTIAL  DERIVATI'/ES  OF  THE 

C'k 

C-k 

C'k 

TEhPERATURE  RESIDUAL 

UITH  RESPECT  TO  LOCAL  TEMPERATURES. 

INPUTS: 

Ck 

VI 

- 

U-COhPONENT  OF  UIND  AT  LOCAL  POINT  9 

C'k 

V2 

- 

V-COMPONENT  OF  UIND  AT  LOCAL  POINT  9 

Ck 

T 

- 

POTENTIAL  TEMPERATURE  AT  LOCAL  POINT  9 

C-k 

FLDVSQ 

- 

LOCAL  RESIDUE  UHEN  TEMPERATURE  • T 

C'k 

ACSQ 

- 

LOCAL  RESIDUE  UHEN  VELOCITY  COMPONENTS  - 

Ck 

VI.  V2 

Ck 

OUTPUTS: 

Ck 

DTT 

- 

PARTIAL  UITH  RESPECT  TO  T 

C k 

DUT 

- 

PARTIAL  UITH  RESPECT  TO  VI 

Ck 

PVT 

- 

PARTIAL  UITH  RESPECT  TO  V2 

C k 

INCLUDE  INPPRn  .LIST 
DATA  DEL'-. 05-'-  DELT- . 1 
C 

AO  * AC SO 
TO  • FLDVSQ 
C 

Ck-K  VELOCITY  DERIVATIVES 
Ck^K  CHANCE  IN  PLUS  1 DIRECTION 
VIT  = Vl+DEL 
V2T  • V2 

CALL  ACCSQPi;VlT.V2T.AlPT.HDUrt) 
HlP  * AlPT 
C 

Ck*  CHANGE  IN  PLUS  2 DIRECTION 
VIT  = VI 
V2T  ■ V2+DEL 

CALL  ACCSOR ( V 1 T. V2T, A2PT . ADUM) 
A2P  - A2PT 
C 

Ckic  DERIVATIVES 

DUT  - (A1P-A0>  'DEL 
DVT  - (A2R-A0)  'DEL 
C 

IF(  ILE'/EL.LE.  I)  GO  TO  TO 
C 

Ck:k  TEi-FERATURE  DERIVATIVE 
C 

Ck*  PLUS  CHANGE 
TTP  - T+DELT 


CALL  TPrLUX(TTP.FTPT) 
TP  - FTPT 
C 

C*»  DERIVATIVES 

DTT  - (FTPT-T0)/DEL.T 
RETURN 
C 

?Q  CONTINUE 
DTT  - 0.0- 
RETURN 
END 
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SUBROUTINE  INPUTS 


C 

C* 

C*  INPUTS  TRANSFERS  DATA  FROM  /INTLYZ/  TO  /START/.  /MRCIPF/  TO 
C>K  /INPPRM/,  AND-  INITIALIZES  WORTANT  CONSTANTS. 

C* 

C*  INPUTS: 

GENUNDCl) 

C=K  GENUND(2) 

C*  DELO 

C*  ILE. ILU.JLN.JLS 

C*  IHIERC.  IRELAX.  IFLi:-' 

C* 

C*  OUTPUTS^' 

C-x  EVERYTHING  ELSE 

C* 

C 

INCLUDE  MESAGE 
INCLUDE  FILES 
INCLUDE  MRCIPF 
INCLUDE  START 
INCLUDE  INPPRM 
INCLUDE  INTLYZ 
INCLUDE  SETBOX 
C 

C-X:x  IMIITIALIZE: 

C 

DGRID  - DELTER 
ZGRID  - 6.0 
I LEVEL  ■ IHIERC 
NRELAX  - IRELAX 
DD  » DGRID>xSQRT(2.) 

DR  - l./DD 
IL  > ILE 
IC  - IL-1 
ICl  - ILU 
JL  - JLN 
JC  - JL-1 
JCl  » JLS 
VE  • GENUNDCII 
VN  - GENl.JND(2) 

DELTQ  » DELO 
UJTFLG  = I FLUX 
RUTFLG  - lUTFLG 
BO/AV  • ZGRID/RUTFLG 
C 

RETURN 

END 


i 
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SUBROUTINE  LOCPNT(K-L.M) 


c--* 

TRANSFERS  DATA  FROM  GLOBAL 
TO  COMPUTE  PROFILE  RELATED 


C* 

C'K 

C:x 

c* 

Cii= 

C-tc 

CT 

Ck 


LOCPMT 

PTPROF 


TO  LOCAL  ARRAYS 
QUANTITIES. 


AND  CALLS 


k 


, ) 


, ) 


C'k 
Ck 
C '■ 

Ck 

Ck 

C K 
C k 
Ck 
C k 
C k 
C k 
C k 
C'k 
C-k 
C> 
C t 
C k 
C k 


INPUTS: 

M 

K,L 

SLOPEK, 

SL0PE2(, 

AREhF ( . . 

TEMPEXk . 

ROUGH  . , 
ACNRML(.. .) 
OUTPUTS: 

HD  KM) 

HD2(M:' 
hR  tM) 

THCMi 

UHM) 

VLU'li 

ENkM) 

EN(li:i 
THD  I ( I.' 

BUO'i  i.Mj 
ERi  m:' 

LOCAL  VARIABLES: 

CO 

AN 

THE; : 

USO 


INDEX  OF  LOCAL 
GLOBAL  INDICES 


POINT 
OF  LOCAL 


POINT  M 


FROM 

FROM 

FROM 

FROM 

FROM 

FROM 


SLOPES.- 

kSLOPES/ 

.'SLOPES.-' 

■•-TEMPEX.^ 

.'TERDAT/ 

/ACNRML-- 


IN 

IN 

IN 

IN 

IN 

IN 

IN 

IN 

IN 

IN 

IN 


--LOCAL/ 

.'LOCAL.-- 

-LOCAL/ 

- LOCAL  ' 
.'LOCAL.-' 
. LOCAL  ' 
/LOCAL. 
'LOCAL' 
/LOCAL/ 
.'LOCAL/ 

- LOCAL/' 


COMPONENT 

COMPONENT 


OF 

OF 


TERRAIN 

TERRAIN 


SLOPE 

SLOPE 


ROUGHNESS  AT  POINT  M 
NORMAL  ACCELERATION  AT  POINT  M 
AMBIENT  TEMPERATURE 
MAGNITUDE  SQUARE  OF  LOCAL  UIND 


f f;.i(:k'k-k  i.  ki  ; -I  i.:("k.tok;k'l:k'k-k'(-*t::t:kk:k:kk:4:;k:k'K«.|;;k:k:k:trk-k:|:k'k;k^k:kk'kH<:kM::k:k'-k:k?kk:k>k>k*>kk:l:Hc:kkHck>k 


INCLUDE  GRDP=n 
INCLUDE  INPPPM 
lilCLUDE  FIELDS 
INCLUDE  LOCAL 
INCLUDE  TEPDAT 
INCLUDE  SLOPES 
INCLUDE  TEMPEX 
INCLUDE  ACNPML 


HDliM)  » SLOPEKK.L) 
HD2ai)  = SLOPEBMC.L) 
AR(.M)  = AREAPfK.L) 

Z0  = ROUGH <K,L) 

THEX  = TEMPEX(K,L) 


TH(M)  - THTA(K-,L) 

UL(M)  • UCK.L) 

VLCM)  - V(K.L) 

AN  - ACNPLL(K,L) 

USQ  - UL(M):kx<2  +'/L(M)m<;:;2  +(HD1  (M):kUL(M)+HD2(M)!kVL(M) 

CALL  PTFROF(THEX.TH(rt).USC!.ZO.AH.  EH(M)  .THD(M)  .BUOY(M) ) 
ER(M)  - Sl5RT(4.kEH(M-J+l.) 


RETURN 

END 
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] 


I 


SUBROUTINE  LOCQUft(I.J) 

C 

C>Wo(o|oMoMoMotok**HoK*********sK*H<*XOK*)MoM<**)Mc;i<)K**)K>lo)csK;K*>l<M<!K)*!>K;|<***>K5Mc(oK5K*>K*)M«5|< 

C* 

C*  LOCQUfl  DOES  THE  FOLlOUING: 

C*  1.  DETERMINES  THE  GLOBAL  ARRAY  INDICES  FOR  EACH  LOCAL  POINT 
C*  NEEDED  TO  COMPUTE  LOCAL  RESIDUES 

C*  2.  CALLS  LOCPNT  TO  OBTAIN  TERRAIN,  TEMPERATURE.  AND  PROFILE 
C*  QUANTITES  AT  RELEVANT  LOCAL  POINTS 

C* 


C*  INPUTS: 

C*  I.J 

C* 

C*  NSET 

C*  LOCAL  VAR  1 ABES: 
C*  KINDXC.) 

C*  LINDX(.) 

C*  K.L 
C* 


GLOBAL  INDICES  OF  POINT  IJHERE  LOCAL  RESIDUE 
IS  TO  BE  CALCULATED 
FROM  /SETBOX/ 

ARRAY  USED  TO  DETERMINE  GLOBAL  INDICES 
ARRAY  USED  TO  DETERMINE  GLOBAL  INDICES 
GLOBAL  INDICES  OF  LOCAL  POINTS 


C 


INCLUDE  SETBOX 
INCLUDE  INPPRM 


DIMENSION  IMDEX(9),KINDEX(9),LINDE:-:i:9) 
DATA  K INDEX/1-0. 1.1.0/ 

DATA  LINDEX/1. 1. 1,0,-1.-1. -1.0.0/ 

C 

C**  LOCAL  POINT  9 ALUAYS  NEEDED 
DATA  INDEX(9)/1/ 

C**  INITILIZE  OTHER  POINTS  AS  NOT  NEEDED 
DO  1 H-1.9 
INDEX(M)  - 0 
1 CONTINUE 
C 

C**  FIND  UHICH  POINTS  ARE  NEEDED 
IF(NSET( 1) .EQ.0)  GO  TO  10 
INDEXd)  • 1 
!NDEX(2)  - 1 
INDEX(8)  ■ 1 
C 
C 

10  IF(NSET(2) .EQ.0)  GO  TO  20 
INDEX(2)  « 1 
INDEX(3)  - 1 
INDEX(4)  - 1 
C 

20  IF(NSET(3) .EQ.0)  GO  TO  30 
INDEX(4)  - 1 
INDEX(5)  - 1 
INDEX(6)  ■ 1 
C 
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30  IF(NSET(4) .EQ.0)  GO  TO  40 
INDEX(6)  - 1 
INDEX(7)  - 1 
INDEXCS)  = 1 


40  CONTINUE 


k OBTAIN  LOCAL  QUANTITIES 
DO  50  M-1.9 

IF(INDEX(ri)  .EQ.0)  GO  TO  50 
k SET  GLOBAL  INDICES  CORESPONDING  TO  LOCAL  POINT 
K « I+KINDEX(M) 

L - J+LINDEX(m 
CALL  LOCPNTCK.L.H) 

50  CONTINUE 


RETURN 

END 


SUBROUTINE  OUTPUT 


C 


c* 

c* 

OUTPUT  BLOCKS  OUT 

THE 

SAVED  UIND  AND  TEMPERATURE  FIELD.-  TO 

c* 

MASS  STORAGE  AND 

PRINTS  A FORMATTED  DESCRIPTION  OF 

THE  WIND 

CS< 

MODEL  RESULTS. 

c* 

c* 

INPUTS: 

c* 

USAVE (...) 

- 

FROM  /EAVEM/ 

c* 

VSAVE (...) 

- 

FROM  /SAv/EM.^ 

C:k 

TPSAVEC.. .) 

- 

FROM  /SA'.'EM/ 

C'-k 

NSAVE 

- 

FROM  /SAVEM/ 

C* 

NRELAX 

- 

FROM  /INPPRM/ 

C>if 

DGRID 

- 

FROM  /INPPPM/ 

C* 

ZGRID 

- 

FROM  /INPPRM/ 

C’k 

RES(.) 

- 

FROM  /MNSRCH/ 

C* 

TRESC.) 

- 

FROM  /MNSRCH/ 

C* 

VDRSUMC.) 

- 

FROM  /MNSRCH/ 

C=k 

ENERGYC .) 

- 

FROM  . WSRCH/ 

C* 

RCOUNT 

FROM  -MPCHDP/ 

C* 

XUINDi.) 

FPOM  -MRCHDR/ 

C-k 

YIJIND(.) 

FROM  MRCHDR  ' 

C>k 

DELTAQ(.) 

FROM  /MRCHDR 

Cik 

p tempi:.) 

FROM  - riPCHDP 

C-k 

ZELEVi; . ) 

FROM  -MRCHDR ' 

C--k 

TERSLK ( . ) 

FROM  .MRCHDR/ 

Ck 

TSITE 

- 

FROM  -INTL'iZ 

Ck 

LOCAL  VARIABLES: 

Ck 

IB 

- 

BLOCK  NUMBER 

Ck 

9 

3kREC0UNT-l  POP 

TEl-PEPAT'JFE 

Ck 

a 

SkPECOUNT  FOP  U 

component  of 

UiND 

Ck 

= 

S+RECOUNTki  FOP 

V CCrPCNENT 

OF  IIND 

Ck 

Ck 

f fk  |:1c  I -♦:-*2k'kk  k f ( (»»*»*.« 

C 

INCLUDE  GRDPRM 
INCLUDE  FILES 
INCLUDE  nPCIPF 
INCLUDE  INPPPM 
INCLUDE  MRCHDR 
INCLUDE  ShVEM 
INCLUDE  r-INSRCH 
INCLUDE  INTLYZ 
DATi^  C/-. 707 1067/ 

C 

URITE(XOTFIL. 10) 

I • RCOUNT 

LJR1TE(XOTFIL.20)  XUIND(  1)  .YUINDC 1)  .DELTAQC 1) , 

1 (PTE^P(  I.  J).ZELEV(I.J) , J=l-3),TERELI<n)  .TSITE 
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URITE(XOTFIL.40)  DGRID,ZGRID 
URITECXOTFIL,50)  HRELflX,  NSAVE 
LJRITEtXOTFIL-SO) 

URITE(X0TFIL,63)  (PES( I) . 1=1 ,NRELRX) 
LJRITE(XOTFIL,bn 

URITE':X0TFIL,63)  CEMERGYC  I) , I = 1,NRELPX) 
UIRITE(XDTFIL,62) 

bJR  I TE  ( XOTF I L . b3 ) C VDRSiJM ( P , I = 1 . NREL  PX) 


C'K*  itivERT  sk:eu  TPAMSFORMP'ION 
DO  120  I = l.IC 
DO  110  J = 1 , JC 
VI  = UShVE':I,J) 

'v'2  = VShVEi' I J) 

OinVE  I I , J .1  = C hV  1 -C  +-y2 
'■/SAVE  (.  I J = C -*-V  1 +C  l:V2 
110  COMTlrtUE 
120  CONTIMUE 
C 

C>''K  ARCHIVE  TEIiRERATIJPE  AMD  UIMD  FIELDS 
IB  = Sm-COUMT  - 1 

CALL  ELI  OUT' MFOUT. TPSAVEi 1.1). IB.MOTFIL. 1ST) 
IB  = I D V 1 

CALL  EL;  'GUT'  liFO'JT.  USAVE  ' I . P . !B . I 'OTF  IL.  1ST) 
IB  = lE+l 

CALL  CLKCUT'MFC'UT-VSAVEa..  1) . IB.nOTFIL.  1ST) 


Ct'-^'  OUTPUT  UIMD  FIELD 

CALL  LIMDFLD  i USAVE . VSA VE  .ILL.  jLL  j 
C 

iF(  ILEVEL.LT.:.'  GO  TO  90o 
Ci  i«  FRIMT  SA'.ED  POTEMTIAL  TEMPEPATUPE  FIELD 
LJPITE'.XOTFIL.rO) 

! TE  ' ,OTF  I L . 63  ' i TPES  < P ■ P 1 . MPELAXI 
CALL  TI'irrLD ' TPSAVE . ILl . JLL) 

SOO  COMTIHUE 
r 

CK-.K  OUTPUT  FCPMATS 

10  FOPrAT'-'l  DPIViriG  PAFAMETEPS  FOR  THIS  PUM') 

20  FORMhT(.-'."  X UIMD  =' • T ■■'.F3.2  •-  )'  UIMD  =' ..T40.F8.2V 

1 IX, 'SUFFACE  HEATIMG  L V'FEFEMTIAL  = ‘.TaO-FS.B.'  PEG  K'vv 

2 ■ 'EMPEFATURE  PPCIPILE:  ■ .3(T.iO.F3.2.  10X.FS.2V)./ 

3 • ARCHIVED  TEPPAIM  PUM  --.TAO.IB.' 

4 • TEUPERATUFE  AT  SITE  ='.T40.F3.2) 

40  FOPMATCOhOPIZOMTAL  GRID  SPACE  =' .T40.F3.3, ' METERS  'v. 

1 ' COMPlJTATIOM  HEIGHT  =' .T40.F8.5, ' METERS'//) 


50  FOPMATCIX. 14.'  RELAXATION  STEPS' /IX. 14. ' STEPS  TO  MINIMUM'//) 
bO  FORMAT (//■  ACCELERATION  SQUARE  RESIDUE'/) 

61  FORMATC//'  KINETIC  ENERGY'/) 

62  FORMAT  f//'  DERI  VAT  IV'E  SQUARE  SUM  '/) 

63  FORMATC lOfZX.ElO. 3)) 

70  FORMATC//'  TEMPERATURE  FLUX  RESIDUES'/) 


RETURN 

END 
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r 


C0nPILER(DlAG-3) 

SUBROUTINE  PTPROF (THEX. THTMP. USQ. Z0. AN. ENT. THDT. BUOY) 

C 

C»»  CALCULATES  LOCAL  F“;OFILE  RELATED  QUANTITIES 
CxcK  UIND  PROFILE  EXPONENT, ENT- TEMPERATURE  DERIVATIVE.THDT- 
C**  BUOYANCY  ACCELERATION-BUOY 
C 

INCLUDE  INPPRM 
EQUIVALENCE  (Z.-EGRID) 

C 

DATA  G/9.80/ 

BUOY  • G*(THEX-TUTMP)/THEX 
!F(USQ.LE.0.O1)  GO  TO  3 
RICH  - BUOYh=Z/USQ 
S « -2 . =KZ:*:AN/USQ 
RICHC  - 2.>kS*(l.+S) 

RICH  = RICH  + RICHC 
GO  TO  5 

3 RICH  - leO.iKBUOYsKZ 

C**  CHECK  RICHARDSON  NO.  FOR  LAMINAR  FLOU 
5 IF(RICH.LE.0.25)  GO  TO  10 
ENT  = 1. 

GO  TO  70 
C 

C**  PROFILE  FOR  TURBULENT  FLOU 
10  IF(RICH.LE.0. 1)  GO  TO  20 
PHIM  • 1.75/(1.-4.*RICH) 

GO  TO  50 

20  IFCRICH.LE. 0.033)  GO  TO  30 
PHIM  • O.S8/(l.-6.*RICH) 

GO  TO  50 

30  IF(RICH.LE.-O.Ol)  GO  TO  40 
PHIM  • l./(l.-3.>t<RICH) 

GO  TO  50 

40  PHIM  = l./((l.-12.*RICH)*'i'0.25) 

C 

C^K*  OBUKHOV  SCALED  HE IGHT. XI . AMD  EXPONENT. ENT 
50  IF<RICH.GE.0.0)  GO  TO  60 
XI  - (l.-I./(PHIM>tot<4)).'15. 

X = l..'PHIM 

PS  I = 2.*AL0G((l.+X)/2.)+AL0G(;(l.+X:KX).'2.) 

1 -2.  >t<A  TAN  (X+ 1.5708) 

ENT  » PHIM.'(ALOG(Z/Z0j-PSI) 

GO  TO  70 

60  XI  « (PHIM-1 .)/4.7 

ENT  « PHIM/(AL0G(Z/Z0)+4.7>f:XI) 

C 

C**  PROFILE  CORRECTION  OF  TEMPERATURE 

70  DER  = (2.*(THEX-THTMP)/Z)h<i:ENT*5K2/(2.-EMTk:k2)) 

THDT  • Z*DER/'((ENT+1.)*(ENT+2.)) 

C 

TPA  ■ THTMP  - .05*Z*DER 
BUOY  - G*(THEX-TPA)/THEX 
C 

RETURN 

END 
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FUNCTION  PRESEXCXO) 

C 

COMMON  /TPROF/  DUM(3)>  X(3) 

DIMENSION  \'i3) 

DftTP  Y/S5O0O. ,70000. .50000. / 

C 

JJ  = 2 

IF(X0.LE.X(JJ))  GO  TO  50 
JJ  = 3 

c » 

50  J = JJ-1 

PRESEX  = ((Y(JJ)-Y(J))/(X(JJ)-X(J)))'tt(XO-X(J))+Y(J) 

C 

RETURN 

END 


D-94 


C0MP!LERCDIAG»3) 
SUBROUTIME  RELAX 


C K 

c 

RELAX  IS  THE  IJORKHOR 

SE  FOR  THE  WIND 

AND  TEMPERATURE  FIELD 

C K 

hIIhL'i'SIS.  RELi^X- 

- 

C 

1.  CALLS  ROUTINES 

TO 

CALCULATE  LOCAL  CONTRIBUTIONS  TO  THE 

C i. 

ACCELERATION  AND 

TEMPERATURE  FLUX  RESIDUALS 

C k 

2.  ACCUMULATES  RESIDUALS 

CK 

3.  CALLS  DELTA  TO 

CALCULATE  PARTIAL 

DERIVATIVES  OF  RESIDUALS 

ctt 

UITH  RESPECT  TO  UINDS  AND  TEMPERATURES  (DELTA  IS  SKIPPED 

Ck 

FOR  PEGGED  VALUES 

OF  UIMD  AND  TEMPERATURE) 

C'K 

4,  STORES  GLOBAL 

RESIDUES  AMD  TESTS 

I.IHETHER  TO  SAVE  FIELDS 

C'k 

5.  APPLIES  STEEPEST 

DESCENT  CORRECTIONS  TO  I.JIND  AND  TEMPERATURE 

C-k 

FIELDS 

C k 

C k 

INPUTS: 

C-k 

IC. ICl- JC. JCl 

- 

FROM  --IMPPPM/ 

Ck 

NR.NRELAX 

- 

FROM  .-•INPPRM. 

C'k 

I LEVEL 

- 

FPOM  kiHPPPM.- 

Ck 

TRLX- VRLX 

- 

FROM  / INPPRM.- 

C k 

RES ( . ) 

- 

FROM  /MNSRCH.' 

C'k 

OUTPUTS: 

C k 

USAVE (...) 

- 

IN  /SAVEM.' 

Ck 

VSAVE (...) 

- 

IN  'SAVEtV 

C k 

TPSAVE  (...'' 

- 

IN  .'SAVEM,.' 

C k 

NSAVE 

- 

IN  -SAVEM-' 

C'k 

RES ( . ) 

- 

IN  MNSRCHV 

Ck 

TRES ( . ) 

- 

IN  . MNSPCH/ 

C k 

ENERGY ( . ) 

- 

IN  /MNSPCH/ 

Ck 

VDRSUM( . ) 

- 

IN  -MNSPCH-' 

Ck 

COMMON  LOCATIONS: 

Ck 

U ( . . . ) 

- 

IN  -UINDVEL- 

FIELDS  PROC 

Ck 

VC . . . ) 

- 

IN  /-WNDVEL 

FIELDS  PROC 

C K 

THTA (...) 

- 

IN  POTEMP. 

FIELDS  PROC 

Ck 

DU  ( . . . :• 

- 

IN  -DEPI',''- 

Ck 

DVf ...  1 

- 

IN  -DER IV- 

Ck 

DT(...) 

- 

IN  -DEPIV/ 

C k 

ACMRML 

- 

IN  -ACIIRML/ 

C k 

LOCAL  VARIABLES: 

C k 

RSUM 

- 

ACCELEPATION 

RESIDUAL 

C y 

PSUMT 

- 

TEMPERATURE  FLUX  PESIDUAL 

C k 

DPSUM 

- 

SUM  OF  SQUARE 

S OF  ACCELERATION  PARTIALS 

C k 

DPSUMT 

- 

SUM  OF  SQUARES  OF  TEMPEPATUPE  FLUX  PAPTIALS 

C k 

SVSQ 

- 

SUM  OF  SQUARE 

S OF  SURFACE  PARALLEL  VELOCITY 

C k 

COMPONENTS 

Ck 

CFAC 

- 

RELAXATION  FACTOR  FOR  MIND  FIELD 

Ck 

Ck 

CFACT 

” 

RELAXATION  FACTOR  FOR  TEMPERATURE  FIELD 

c 
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INCLUDE  GRDPRM 
INCLUDE  IHPPRM 
INCLUDE  LOCrtL 
INCLUDE  FIELDS 
INCLUDE  SUPFCB 
INCLUDE  riNSRCH 
INCLUDE  DEPIV 
INCLUDE  ShVEM 
INCLUDE  SETBOX 
INCLUDE  HCNRttL 


C IHITIhLIZE: 
PSUM  =0.0 
Dpsuri  = 0.0 
CFhC  = 0.0 

Psuni  = 0.0 

DPSUMT  = 3.0 
CFhCT  = u.O 
S'.'SO  = 0.0 


C;k  DOUBLE  DO  LOG?  FOR  VELOCITY  hND  TEtlPEPHTURE  CORRECTIONS 
DO  b 0 I = I C 1 ..  I C 
DO  50  J = JC1,.  JC 

Crk  ShVE  LOChL  QUANTITIES 
Vi  = UCI.Jj 
V2  = V 1'  I ,.  J > 

T = THTAd.J) 

Ck^k  DETEPrUNE  NEIGHBORING  FLUM  BOXES 
CALL  STGDBXi;  I.  J') 

IFt,  lUTFLG.EQ.Zt  CALL  UE IGHTCVl , V2) 

C 

Ckk  OBTAIN  LOCAL  QUANTITIES 
CALL  LOCQUA' I . J) 

C 

C.'r  OBTAIN  LOCAL  RESIDUES 

CALL  ACCSOr'''Vl  .VB.ACSQ.ACNOPtD 

ACNRI’L',  I.  J)  = ACNORM 

IFaLEVEL.GT.  I'l  CALL  TPFLUXa, FLDVSQ) 

PSUM  = PSUM+ACSO 
PSLMT  ’ F.SUMT  + FLDS'’SQ 
IFMIR.EQ.NPELAX)  GO  TO  50 


f 


CHECK  IF  OBSERVATION  POINT 
IFi'NUMOBS.EQ.G)  GO  TO  41 
DO  40  M»l,NUMOBS 

Ct<^k  IF  I, J IS  A PEGGED  POINT.  SKIP  DERIVATIVES 
IF(:i-KINDX(M))  40.20.40 
20  IFi. J-LIHDX(h))  40,30.40 
33  DUn.J)  = 0.0 
DV(I.J)  » 0.0 
DTH.J)  =■  0.0 
GO  TO  50 

40  CONTINUE 

41  CONTINUE 
C 

C*!i  COMPUTE  TEMP  AND  VELOCITY  DERIVATIVES 

CALL  DELTA ( V 1 . V2 . T. FLDVSQ , ACSQ , DTT,  DUT.  DVT) 
DUCI.J)  = DUT 
PVn.J)  - DVT 
DTCI.J)  = DTT 

DRSUM  =>  DPSUM  + DUT'i«2  + DVT*5t:2 

DRSUMT  - DRSUMT  + DTTpiO 

SVSQ  = S V3Q  + U ('  I . J ) *'k2  V ( I . J ) 

C 

50  CONTINUE 
bO  CONTINUE 
C 

c 

C-K-K  STORE  RESIDUES 
Ci^-K  TEST  WHETHER  TO  SAVE  FIELDS 
RES  (NR)  • RSIJM 
TRES(NR)  = RSIJMT 
ENERGY(NR)  = S'./SQ 
VDRSUM(NR)  = DRSUM 
IF(RES(NR:)  .GT.RESi'NSAVE))  GO  TO  39 
NSAVE  » NR 
DO  85  I = IC1.  IC 
DO  35  J=JC1,JC 
USAVEd.J)  * U(I.J) 

VSAVECI.J)  =■  V(I.J) 

05  TPSAVE(I.J)  - THTA(I.J) 

89  CONTINUE 
C 

IF(NR.En.NPELAX)  RETURN 
C 

Ckik  APPLY  STEEPEST  DESCENT  CORRECTIONS 
C 
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DRSUM  • SQRT(DRSUM) 

DRSUMT  • SURT(DRSUMT) 

IF(DRSUMT.MP.O.O)  CFilCT  = TRUVDRSUNT 
CFAC  = VRL.vDRSUM 

DO  95  i=ici;ic 
DO  95  J=JC1,JC 

Ud.J)  =■  Ud.JT  - DUd,J)'KCFHC 
Vdd)  • Vd.J)  - DVd.J)+'CFHC 
THTAdd)  = THTAdd)  - DTCI . J)  t-CFFiCT 
95  CONTIMUE 
C- 

RETURN 

END 


I 

I 


C0MPILER(DIAG-3) 

SUBROUTINE  SETDAT 
C 

C* 

C*  SETDAT  COMPUTES  TERRAIN  SLOPES.  AREA  FACTORS.  AND  AMBIENT 
CiK  TEMPERATURES  I.JHICH  APE  REPEATEDLY  USED  IN  THE  PELA^'ATION 
C*  PROCESS. 

C* 

C*  INPUTS: 

C*  IC.  ICl. JC. JCl  - FROM  '■INPPPM.' 

C*  OUTPUTS: 

C'K  SLOPE !(...)  - IN  .'SLOPES/- 

C*  SLOPES  (...)  - IN  ^SLOPES- 

Ck  AREAFC...)  - IN  .'SLOPES- 

C'K  TEMPEX(...)  - IN  TEMPEX/ 

C^< 

C 

INCLUDE  INPPPM 
INCLUDE  GPDPPM 
INCLUDE  TEPDAT 
INCLUDE  SLOPES 
INCLUDE  TEMPEX 
C 

DO  100  I-ICl.IC 
DO  100  J=JC1.JC 

SLOPE Id.J)  » (Hd  + l.J+l)-Hd.J))-*'DP 
SLOPESd.J)  = (Hd.J+n-Hd  + l.J))-kDR 
APEAFd.J)  = SQRTd.+SL0PEld.J);k'k2+SL0PE2d.J)*:k2) 

TEMPEX d.J)  - TEXFCHd  .J) ) 

100  CONTINUE 
C 

RETURN 
END 
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C0MPILER(DIAG-3) 

SUBROUTINE  SETUP 
C 

C* 

C*  SETUP  INITIALIZES  T1 

C-K  USING  riESOSCALE  NPl 

C*  PARAilETERS  ARE  ALSO 

C* 

C-K  INPUTS: 

C'K  VE 

C*  VM 

C*  DELTQ 

CH<  I LEVEL 

C'k  IC,  ICl,  JC,  JCl 

C*  KINDXC.) 

C-x  LINDX(.) 

C'X  UU(.) 

Cx  VUC.) 

Cx  THETA0(.) 

C-k  NUMOBS 

Cx  OUTPUTS: 

Cx  U( 

Cx 

Cx  THETAO 

L X VM  A G b Q "■ 

LX  VMhIj  — 

Cx  VRLX 

Cx  TRLX 

Cx 

C 

INCLUDE  GRDPRM 
INCLUDE  INPPRM 
INCLUDE  TEMPE^< 

INCLUDE  START 
INCLUDE  DRIVER 
INCLUDE  SURFOB 
INCLUDE  FIELDS 
INCLUDE  TEPDAT 
INCLUDE  ROTATE 
C 

DATA  P2/.23E2' 

C 

ANG  » dOThTE  + .7803981 
Cl  • COS^AI'O 
C2  ■ S IN  I ANG J 
C 
C 

Cxx  initialize  IJIND  AND  TEMPERATURE  FIELDS  AND  INPUT  PARAMETERS 
VTIAGSQ  » VExx2+VHxx2 
VMmG  • SCIRT(VMAGSO) 

CALL  SETDAT 


E MICRO  SCALE  UIND  AND  TEMRERATURE  FIELDS 
TS  AND  SPOT  OBSERVATIONS. 

INITIALIZED. 


MESOSCALE 
DRIVERS  FROM 
/START.-^ 

FROM  VINPPRM.' 

FROM  /INPPRM-' 

FROM  /SUPFOB/ 

FROM  /SURFOB/ 

FROM  /SURFOB/ 

FROM  /SURFOB/ 

FROM  /SURFOB-' 

FROM  /SURFOB/ 

IN  -'IJNDFLD/  FIELDS  PPOC 
IN  - UIDFLD/  FIELDS  PPOC 
IN  -'POTEMP/ 

IN  -DRIVER/ 

IN  /DRIVER- 
IN  /INPPRM/ 

IN  /INPPRM/ 
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o ri 


i 


UB  = ClWE+C2-i<VN 
V3  » -C2^VE+Cl'f:VM 
I'G  20  I = ICl,.  IC 
DO  10  J = JCUJC 
O'  I. J;  = U3 
V/I.J-'  = vB 

THTA  ■;  I . J •)  = TEr I . J ) +DELTO-I'.  f 1 00000  . O^FOESEM ( H f I . J i ) ) T.VP2 
10  C'jllTIMUE 
20  CcliTiiiUE 


t 

9 


1 


SET  PELiT'wTIOM  SChLIHG  PPPihI'IETEPS  : H 

ptphc  = soPT'.  I ic+i-ici' ki;  jc+i-jcm 

= .02  ■P~FHL-tHt1fHi:0(VtViG.2. ) ; 

tpl:-.  = .!>PTPHr.  ^ 


H'  SET  PEGGED  OBSE- VwTIOtlS 
IF -nut 'CBS.  EG.  0'  GG  TO  150 
Du  ^I'0  I !=  1 . MIjT'D'ES 
( = 1 lilD' t-i' 

L =■  Ll  'D' 

O'  - •!_'  = uiJ'fl' 

i-  ' = ‘ J • I • ' 

; H ' f .l)  * 'hcTHOitli 

do.itiole 

ISH  COMTIML'E 

;p' ■l.E'.'EL.uT.E  petijpm 

:.-lL  T;:FF'_r.i "nTA.  is; .-'cc j 

FETOPtl 

E:ID 


SUBROUTINE  STGDBX(I.J) 


C 

C* 

Ci«  STGDBX  DETERMINES  UHETHER  AN  ARRAY  POINT  IS  IN  THE  INTERIOR 

C>k  OR  ON  THE  BOUNDARY  OF  THE  ANALYSIS  REGION.  AND  SETS  THE  FLAGS 

C*  NSET(.)  TO  IDENTIFY  THE  LOCAL  FLUX  BOXES  WHICH  MAY  BE  ASSOCIATED 

C!k  WITH  THE  ARRAY  POINT. 

C*  ^ 

C=k  INPUTS: 

C*  I.J  - LOCATION  INDICES  i 

CH<  IC.  ICl.JC.JCl  - FROM  /INPPRM/ 

C^K  OUTPUTS: 

C*'  NSETi'.,'!  ■ - IN  /SETBOX/ 

C* 

C 

INCLUDE  INPFRM 
INCLUDE  SETBOX 
C 

DO  4 M • 1.4 
NSET(M)  - 1 

4 CONTINUE 
IF(  I .ME.  IC1>  GO  TO  6 
NSETC2)  - 0 
NSETi:3)  = 0 

5 IFd.NE.  IC)  GO  TO  9 
NSET(l)  - 0 
N£ET(4)  - 0 

9 IF(J.NE.JCI)  GO  TO  10 
MSET(3)  = 0 
NSET(4)  - 0 

10  IF(J.NE.JC)  GO  TO  12 
NSET(l)  = 0 
NSET<2)  - 0 
12  CONTINUE 
RETURN 
END 
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o n n n 


FUNCTION  TEXFf.XO) 


K-'i!  THIS  ROUTINE  EKTRAPOLHTES  fl  VALUE  OF  SURFACE  AMBIENT  1 

•i"K  POTENTIAL  TEMPERATURE  FROM  THE  UPPER  AIR  PROFILE  | 

PARAMETER  LEVELS =3 

COMMON  /TPROF..-  Y(LEVELS).  X(LEVELS) 

C 

LI  = LEVELS- 1 
DO  30  I=2>L1 
JJ  • I 

IFCXO.LE.XCJJ) ) GO  TO  50 
30  CONTINUE 

JJ  = LEVELS 
C 

50  J • JJ-1 

texf  = c(Y(JJ)-Y(J))/(X(jj)-x(j:i))^i<(X0-x(J))+yi:j)  j 

r ^ 

RETURN  f 

END  » 

A 

< 

I 


C0MPILER(DIAG=3) 

SUEPOUTINE  TMPFLDCTPSAVE. ILL, JLLJ 
C 

INCLUDE  INPPRM 

INCLUDE  FILES 

DIMENSION  TPSAVEaLL. JLL) 

C 

C-krK  OUTPUT  POTENTIAL  TEMPERATURE  FIELD 
C 

URITECXOTFIL,30) 

ILIM  » ( IC+l-ICn,^12  + 1 
DO  800  II»1. ILIM 

11  = 12-K('II-1)  + IC1 

12  - 12:i<II  + ICl-1 
IF(I2.GT.IC)  12  = IC 
IFCIl.GT. IC)  GO  TO  800 
IFCII.NE.D  URITE(X0TFIL.71) 

DO  700  JJ«JC1,JC 

J " JC+l-JJ 

URITE(X0TF1L,32)  (TPSAVE ( I , J) , I ■ 1 1 . 12) 

700  CONTINUE 
800  CONTINUE 
C 

71  FORMAT (,'V/'  NEXT  SET  OF  COLUMNS'/,') 

80  F0RMAT(1H1,3X, -POTENTIAL  TEMPERATURE  FIELD'//) 
82  FORMAT ( 12 (3X.F7.  D) 

C 

RETURN 

END 
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SUBROUTINE  TPFLUX(T.FLDVSQ) 
C 


c* 

C>K 

TPFLUX  OBTAINS 

ESTIMATES  OF  TEMPERATURE  FLUX  RESIDUALS  FROM  LOCAL 

C>K 

Ck 

C:K 

BOXES.  AVERAGES 
VALUE  TO  RELAX. 
INPUTS: 

THEM, 

APPLIES  PROPER  SCALE  FACTORS,  AND  RETURNS  A 

c* 

NSETC.) 

- 

FROM  /SETBOX/ 

C>K 

T 

- 

TEMPERATURE  AT  LOCAL  POINT  9 

c* 

G* 

BOXAV 

OUTPUTS : 

— 

FROM  /SETQOX/ 

C* 

C=k 

FLDVSQ 

— 

TEMPERATURE  FLUX  RESIDUAL 

C 


INCLUDE  LOCAL 
INCLUDE  INPPRM 
INCLUDE  SETBOX 
C 

TH(9)  - T 
FLDVSQ  - 0.0 
C 

DO  100  I«1.4 

IFtNSETd)  ,EQ.0)  GO  TO  100 
CALL  TPFLXL( I.TFLUXL) 

FLDVSQ  • FLDVSQ  + TFLUXL 
100  CONTINUE 
C 

FLDVSQ  • FLDVSQ:<tB0XAV/AR(9) 

RETURN 

END 
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SUBROUTINE  TPFLXL ( IPT, TFLUXL) 
C 


Ck 

Ck 

TPFLXL  ESTIMATES 

THE 

TEMPERATURE  FLUX  RESIDUAL 

(UP 

TO  A FACTOR) 

C'k 

CONTRIBUTED  BY  A 

SINGLE  LOCAL  BOX. 

C-k 

Ck 

INPUTS: 

C'k 

IPT 

- 

INDEX  OF  LOCAL  BOX  (=  1, 

3,  OR  4) 

C'k 

UL(,),VL(.) 

- 

FROM  /LOCAL/ 

Ck 

TH ( , ) , THD ( . ) 

- 

FROM  /LOCAL/ 

C'k 

OUTPUTS : 

Ck 

TFLUXL 

- 

ESTIMATE  OF  RESIDUAL 

Ck 

LOCAL  VARIABLES: 

Ck 

IPOINTC. , . ) 

- 

SETS  UHICH  OF  9 LOCAL  POINTS 

CORRESPOND  TO 

C k 

LOCAL  BOX  IPT 

Ck 

11, 12,  13,  14 

- 

INDICES  OF  LOCAL  POINTS 

Ck 

TAV 

- 

AVEPAGE  TEMPERATURE 

Ck 

TF 

- 

TEMPERATURE  FLUX 

C k 

C 


INCLUDE  LOCPL 
INCLUDE  INPPRH 
DIMENSION  IPOINT(4, 
DPTA  IPO  I NT  ,'1,2,9. 


4) 

P,  p 


,3, 4, 9, 3, 4, 5. 6, 3, 9, 6, 


11  =■  IPOINT(  1,  IPT'J 

12  = IP0INTi:2,  IPT) 

13  = IP0INTr:3,  IPT) 

14  = IPOIHT(4,  IPT'i 

ThV  • (TH(I3)+TH(Il)+TH(I2)+THn4:i)/4.0 

TF  = (UL  ( 1 1)  (-i: TH ( 1 1 ) -TftV)  '(EN  ( 1 1 ) + 1 . ) ~UL  C 1 1 ) ‘t^THD  (ID)  4;flR (ID 

1 +i.VLt  I2)'k(:TH(I2)-THV).-'(EN(  I2)  + l . ) -VL  (12)  ^THD  ( 12) ) -kAR  ( 12) 

2 -I  UL(  I3vi4TH(  !3)-ThV)/(ENC  I3)  + l . )-UL(  13)'kTHD(  13)  )'i'AR(  13) 

2 - ( VL  ( 14)  k(TH  < 14)  -TAV)  / (EN  14)  + 1 . ) -VI,!:  14)  'kTHD  C 14) ) :kAR  ( 14) 

TFLUI'  L * TF  k:i<2 

RETURN 

EliD 
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SUBROUTINE  UEIGHT(V1,V2) 


C 

C4t:4otok!k:K!k>k>K:KHc)K:K>i(>teK>K>k9K>k3M(>K)k>|(>K:K:4cK:k3k:k9k:k><(3k)l()K)k:K>K:Mc>k>K>K>KH<:4cK:K;K>K)k>l<iK>K>Mul<>KN()Kilo|<H<>k>latctaK 

C>t« 

C*  UEIGHT  ALTERS  THf  FLAGS  NSETC.)  SO  THAT  UPSTREAH  BOXES  ARE  USED 
C*  TO  ESTIMATE  THE  LOCAL  CONTRIBUTIONS  TO  THE  ACCERATIOH  AND 
C*  TEMPERATURES  RESIDUES 
C* 

C*  INPUTS; 

C*  VKV2  - COMPONENTS  OF  LOCAL  UIND  VECTOR 

C*  OUTPUTS: 

C*  NSETC.)  - IN  /SETBOX/ 

C* 

C 

INCLUDE  SETBOX 
C 

DO  I I=l,4 

1F(NSET(I)  .EO.0.1  RETURN 
1 CONTINUE 
C 

C<<'k  DETERMINE  UPSTREAM  BOXES 
IF(VD  6,7.7 

6 NSET(3)  - 0 
GO  TO  8 

7 NSETC n » 0 
C 

8 IF(V2)  9-  10,  10 

9 NSETC4)  = 0 
RETURN 

10  NSETC2J  = 0 
RETURN 
C 

END 
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SUBROUTINE  U INDEX 


C 

C>X 

C*  IJINDEX  IS  THE  MANAGER  FOR  MFC  MICRO  UIND  MODEL 
C* 

C:k  INPUTS: 

C-K  NRELAX  - FROM  /INPPRM/ 

Cf  NR  - FROM  /INPPRM/ 

C* 

C 

c 

INCLUDE  GRDFRM 
INCLUDE  MESAGE 
INCLUDE  FILES 
INCLUDE  MRCIPF 
INCLUDE  SAVEM 
INCLUDE  MNSRCH 
INCLUDE  TEMPEX 
INCLUDE  SLOPES 
INCLUDE  START 
INCLUDE  INPPRM 
INCLUDE  INTLYZ 
INCLUDE  TERDAT 
INCLUDE  SETBOX 
INCLUDE  DRIVER 
C 
C 
C 

Ck-K  INIITIALIZE: 

CALL  INPUTS 
C 
C 

Ck-k  INITIALIZE  UIND  AMD  TEMP  FIELDS,  SKEU  TRANSFORM 
CALL  SETUP 
C 
C 

Ck*  ADJUST  UIND  AND  TEMPERATURE  FIELDS 
NSAVE  = 1 
DO  50  I-1,NRELh.X 
NR  = I 
CALL  RELAX 
53  CONTINUE 
C 
C 

Ckk  OUTPUT  RESULTS 
CALL  OUTPUT 
C 

RETURN 

END 
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C0hPILER(r)IftG>3) 

SUBROUTINE  UNDFLDCUSAVE.VSAVE. ILL, JLL) 


C 

INCLUDE  INPPRM 
INCLUDE  FILES 

DIMENSION  USAVE(ILL,JLLI,  VSAVE ( ILL, JLL) 

* C 

C 

C**  ..'JIPUT  UIND  FIELD 

» C 

L.  iTE(X0TFIL,70) 

ILIM  • (IC+l~ICn,^  + 1 

DO  600  11=1, ILIM 

H = 8>K(II-1)  + IC1 

12  « 8*11  + ICl-1 

IF(I2.GT. IC)  12  = IC 

IF( 1 1 .GT. 1C)  GO  TO  bOO 

IF ( 1 1 . HE . 1)  UR  ITE O'OTF  !L, 7 1 ) 

DO  500  JJ»JC1,JC 
J = JC+JCl-JJ 

UR  I TE  ( XOTF  I L . 72  j r US AVE  a . J ) , VSA\/E  ( I , J ) , I = 11 , 1 2 ) 
500  CONTINUE 
600  CONTINUE 
C 

70  FORMATdHl.SX,  ■ UIND  FIELD',-,') 

71  FORMATC/,'/'  NEXT  SET  OF  COLUI INS'' / O 

72  FORMATCa (SK, F5 . 1 , ' . ' , F5 . 1 ) ) 

C 

RETURN 


r 

I 

I 

D.4  JOB  CONTROL  ELEMENTS  AND  SAMPLE  INPUT  OF  MRC*EPAMS 


1 


JCL  ELEMENTS  USED  FOR  FILE  AND  LOGICAL  UNIT  ASSIGNMENTS 
-«>K;k  M.UNDASG/SUUS 
9USE  F3.  .MRC-t<TEPPAIN. 

QAbU^AZ  MRC'^'TEPRA I N , 

QLISE  10.,  XINFIL. 

QASG.AZ  XINFIL. 
wUSE  F8..SU0BS. 

Q A b G , A L.  b LuU  B S . 

0USE  F1.,SUUAD. 

QAbG  • Hi_  bUUAD  . 

3LlbE  F!2.,SUGUCD. 

QhSG,AZ  SUGUCD. 

0USE  FI  1 . .SLIGUCP. 

QASG.AZ  SIJGIXP. 

QUSE  F 1 5 . . SUUS^SFDTA 1 . 

QASG.AZ  SUliS  rSFDTA' 

Qij'SE  F’.b.  .SLiiJS-ttr:  =1'. 

5ASG.,^Z  rib. 

QUSE  Fir.,  blJUSt  iFC  I ARCH  I VE . 

QASG.AZ  S I ..!IJ  S r IF  C t l..;t  I D H P C H I VE . 

QUbt  rZ.  . SbS'tl.'SGPDZ  . 

QAbb.Aw  Fi  . 

♦ff  M.I...‘MDASG  EUP 

QUSE  10..  ::mfil. 

QASG.AZ  ::UtFIL. 

QUbE  F3..EUPGBS. 

Qr4Sij.AZ  EUPCBS. 

QUSE  Fl  . .EUPIJAD. 

QASG.AZ  EUPUAD. 

QUbE  F 15 . . EURO tSFDTA 1 . 

QASG.AZ  rl5. 

QUbE  FIS..  E'.PO-t  MPC  TPF  . 

QhSG.:-:Z  Fib. 

QUSE  Fir..  EUPOMPC  U.jllDAPCH  I'-'E  . 

QASG. hZ  Fir. 


***  INPUT  ELETENT  FOR  MAP  PROCESSOR  — M.I.JNDMflP/'SUUS 
QMAP.A  .h.BIGKAHUMA.  SUUS 
SEG  KESEG 

I N M.  XECrtMS . hSL -KyT  1 L I TY . BLOCKS 
SEG  A K. (YESEGj 
IN  M.hNALYZ 
SEG  B*.  ''.\'ESEG) 

IN  M.PLTPRG 
SEG  C K-  (/ESEG) 

IN  M. APPLY 
SEG  H*. (A) 

IN  M.HEC. .MIYLYR 
SEG  U*, (A) 

IN  M.yUTHGR.M. IDIFTM 

SEG 

IN  M.DTBMGP  ^SUUS.  . CLS5TN-'Gl.JU3>  T.  SATVP,  M.  INTPP 
SEG  UIt-:.iLJj 

IN  n.UINDEIvSyUS,  .TEYF.  .OUTPUT/SUUS.  .PPESEY.  . INPUTS 
IN  M.yNI'FLD.ri.TMPFLI' 

SEG  TP+, 'U' 

IN  m.terhco  syus 
SEG  DP-t'-..  (W,! 

IN  N.I'R!  VPS - syus 

SEG  Uh  k.  i;IiT> 

IN  m.urcuh  syijs.  .ijHDATA--syiJs.T.Y:TPcijH 

SEG  SFC  k,  I,  DT') 

I N 1 1 . r iPcsFi;  /syus . n . sfcdta  -syus , asl  njt  i l i ty  . tested 

SEG  GlJk.  ' DT) 

IN  M.MPCGyC-  SyiJS-M.GLltrDTH.'SUUS 
SEG  t'lt'k.i'DT) 

IN  n.nESMOD-  syus 

SEG  NET  k,  (.  DT.' 

IN  il.tlPCNET-'SUUS 

SEG  Dh  t-:.  I'l'T'' 

IN  M.DmThHL  SUUS. .MINV. . INTERP- . INTCGF . .TiPFPF 
SEG  0 ! k.  I'DAi 
IN  i1. MANUAL  syus 
SEG  02  k.  I DA' 

IN  M.NET'.hP 
SEG  OS'k.  (DA) 

IN  M.MESVAF 
SEG  QAk.d'A'i 
IN  M . i- FijFLb  ■ syus 
SEG  05!-. 'DA) 

IN  m.spftmp  syus 

SEG  Ob/.  I, DA  j 
IN  n . U AVAR  ■ syus . GEOUIND 
SEG  S'ETSEG'k . c y I ) 

IN  M. SETUP  syus.  .SETDAT-SULIS 
SEG  F;;.K.'.yi; 

IN  M.PELA;  ’ syus..  .STGDBM.  .LOCOUA,  .LOCPNT--syUS.  .PTPPOF 
IN  M.ACCS'jP.  .ACCSOL.  .DELTA.  .UIEIGHT 
IN  M.  TPFLU:  ;.  .TPFLYL 
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***  SftMPLE  NAMELIST  INPUT  ELEMENTS 
*McK  M.UNDINP/SUUS 

*.'<FLAGS  FIJNCTN=2.  TASK-2.  JOB-0.  8L0CK-1.  FILE-6.  PRINT— 1.  LEV€L-1 
SEND 

SFLAGS  IDAT(1)=0..  IDATi:2)-0.  IDAT(3)=0. 

IPAT(4)-1,  IDAT(5)-1.  IDAT(b)-l.  IMDT(l)-0.  IMDT(2)-2.  lMDT(3)-0, 
IMDT(4)=8.  IMDTi:5)-0.  lMDT(5)-0.  NTST-0.  IFLUX-Z.  ILASTR-I. 
IHIEEC-2.  MTRBLK-9.  IRELAX-50.  ILE-40.  JLN-40.  ILU-1,JLS-1 

SEND 

STIhPLA  KPLACE-351.3.  YPLACE-3585.7.  2PL ACE -2487.0.  YEAR-1974. 
MONTH-M.  DAY-  1.  HOUR- 14.  MINUTE-00 

SEND 

SXFLAGS  FUNCTN-2.  TASK-2.  JOB-0.  BLOCK-1.  FILE-G.  PRINT— 1.  LEVEL-1 
SEND 

SFLAGS  IDATCn-O.  IDAT(2)=0.  IDAT(3)=0. 

IDAT(4)-1.  IDAT(5.i=l.  IDAT(bl»l.  IMDT(l)-0.  IMDT(2)-2.  IMDT(3)-0. 
IMDT'.4)-8.  IMDT(5)-0.  IMDT(b)-0.  NTST-0.  IFLUX-2.  lLASTR-1. 
IHIERC-2.  MTRSLK-9.  IRELAX-50.'  lLE-40.  JLN-40.  ILU-l.JLS-1 

SEND 

STIhPLA  .XPLhCE-351.3.  YPLACE-3585.7.  ZPLACE-24a7.0.  YEAR-1974. 
MONTH-11.  DAY-  2.  HOUR- 14.  MINUTE-00 

SEND 

STIfPLA  XPLACE-351.3.  YPLACE-35S5.7.  2PLACE-2437.0.  YEAR-1974. 
MONTH-11.  DAY-  5.  HOUR- 14.  MINUTE-00 

SEND 

M.UHDINP/EUR 

SXFLAGS  FUNCTN-2,  TASK =2.  JOB-0.  BLOCK- 1.  FILE -6.  PRINT— 1.  LEVEL- 1 
SEND 

SFLAGS  IDAT(1)=0.  IDAT(2)-0.  IDAT(3)=1. 

IDhT(:4)-1.  IDAT(5)=1.  IDAT(6)»1,  IMDT(1)-1,  IMDT(2)-2,  IMDT(3) -0. 
IMDT(4)-3.  IMDT(.5)-0.  IMDT(b)=0..  NTST-0,  IFLUX-2.  ILASTR-1, 
IHIERC-2.  MTRBLK-1.  IRELAX-50.  ILE-51.  JLN-31.  ILlJ-l.JLS-1 

SEND 

STIlPLA  XPLACE-351.3,  VPLACE-3585.7,  ZPLACE-0.0.  YEAR-1974. 


MONTH-11.  DAY-  2.  HOUR-  7,  MINUTE-00 

SEND 


D.5  PLOT  PROGRAMS  OF  MRC*UTILITY. 


0.5.1  Procedure  Elements  of  Plot  Programs  (PLTPRG) 


FILES  PROC 
C 

COMMON  /FILES/  XINFIL.XOTFIL.MICTRF.MOTFIL 
INTEGER  XINF1L,X0TFIL 
C 

END 

MESflGE  PROC 

COMMON  /tESAGE/  FUNCTN.  TASK.  JOB.  BLOCK.  FILE.  PRINT.  LEVEL 
INTEGER  FUNCTN.  TASK.  JOB.  BLOCK.  FILE.  PRINT 
C 


END 

MRCHDR  PROC 

PARAi'ETER  RUNS -25.  NPARAM-6 

PARAMETER  HDRS I Z = ( 1 0+HPARAM)  >kRUNS+  1 

COMMON  /MRCHDR/  RC0UNT.PTEMP(RUNS.3) .ZELEV(PUNS.3) . 

1 DELTAQ (RUNS) . XUIND (RUNS) . VUIND (RUMS) . TERBLK (RUNS) 

2 .PARAMS(RUNS.NPARAM) 

INTEGER  RCOUNT 

INTEGER  TERBLK 
INTEGER  PARAMS 
END 


HOUPLT  PROC 

cot  MON  /HOLtPLT.  IJATFIL.  ISTASH.  ILL.  JLL,  NGPD.  ILE.  ILU.JLN.  JLS.  IPR. 

1 JPR,.  I TYPE.  NIJt  IIJP,  MIJI  tPLT.  PLH.  I..JATPEN.  OVPLAY.  HCON.  OLDTOP . 

2 5aifle..te:;t 

c 

INTEGER  TEXTi'b) 

INTEGER  LIhTF  1L.I.JhTFEN. OVPLAY. SAMPLE 
C 

C •HOUPLT-'  CCHTAINS  FLAGS  READ  (OR  DEFAULTED)  BY  ROUTINE  OMEVSC 
C UHICH  SPECIF':’  TI-IE  T.PE  OF  PLOTTING  JOB  TO  BE  DONE 
C 


C UATFIL  - LOGICAL  UNIT  NUMBER  OF  FILE  CONTAINING  DATA 

C TO  BE  PLOTTED 


U 

C 

C 

C 

c 

r 

u 

c 

c 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c . 


MUMUP 


PLH 

NUMPLT 

IFP 

JPR 

UATPLT 

UAT^EN 


OLDORI 


NCON 

ITtPE 


TEXT 

SCALE 


- NUMBER  OF  PLOTS  TO  EE  VERTICALLY  STACKED 
(SHOULD  BE  1.2.  OR  3;  MUST  EE  CONSISTENT 
UITH  PLH) 

- SIZE  (INCHES)  OF  PLOT  AXES  (MAX  = 27.0) 

- COUNTER  FOP  NUMBER  OF  PLOTS  EXECUTED 

DIMENSIONS  OF  DATA  ARPA'iS: 

EG  UUINDt IPR. JPR) 

- HUMBER  OF  BLOCK  IN  UATFIL  CONTAItlING  DATA 

TO  BE  PLOTTED 

- PEN  NUMBER:  I - BLACK 

2 - PED 

3 - BLUE 

- FLAG  UHICH  CONTROLS  OVERLAY  PLOTS 

OLDORI-1:  PLOT  IS  OVERLAID  ON  MOST  RECENT  PLOT 
OLDORI-0:  ^LOT  IS  NOT  OVERLAID 

- NUMBER  OF  CONTOUR  LINES  TO  EE  DPAU'N 

IF  NCON.LT.0.  DEFAULT  CONTOUR  VALUES  ARE  COMPUTED 

- TYPE  OF  PLOT 

- 1 CONTOUR  PLOT  OF  TERRAIN 
■ 2 CONTOUR  PLOT  OF  TEMPERATURE 

• 3 STREAMLINES  OF  UINDFIELD  UITH  SPEED 

CONTOURS 

• 4 VECTOR  PLOT  OF  UINDFIELD  UITH  SCALED 

MAGNITUDES 

• 5 THREE  DIMENSIONAL  PLOT  OF  TERRAIN 

- ARRAY  OF  ALPHANUMERIC  DATA  TO  BE  USED  AS  PLOT 
TITLE  (30  FIELD  DATA  CHARACTERS) 

- SCALING  FACTOR  APPLIED  TO  DATA  BEFORE  PLOTTING 
(IMPROVES  APPEARANCE  OF  CONTOUR  VALUES) 
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UORK 1 PROC 

DIMENSION  UORK 1(2601) 

END 

CONV  PROC 

COMMON  /CONVAL/  CONV(20) 

END 

U0RK2  PROC 

COMriON/UORK2/'  U0RK2(260l) 

END 

U0RK3  PROC 

C0MM0N/U0RK3/  UORK3(2601),  LJORK4(2601)-  UORK5(2601) 

END 

TBLHDR  PROC 

PhEhMETER  IDIM=50.  THDRSZ=251 

COMMON  TBLHDR  ' HNBLK.ND IM>(H ( ID IM) , ND IMYH ( ID IM) , DELH ( ID IM) . 
1 SIJUTMX ( I D I M) . SUUTMY  ( I D I M) 

END 


D.5.2  Subroutines  of  Plot  Program  (PLTPRG) 
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PROGRfiM  XECAMT 
INCLUDE  MEShGE 
INCLUDE  FILES 
C 
C 

DATA  XINFIL/10/.  XOTF IL^'E/'.  MOTFIL/17/,  NICTPF/lb/ 
C 

CALL  PLTPFG 
END 


SUBROUTINE  PLTPRG 
CALL  ome:-ec 
RETURN 
END 
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C0MPILER(D1AG-3) 

SUBROUTINE  OMEXEC 
C 

INCLUDE  MESfiGE 
INCLUDE  FILES 
INCLUDE  MRCHDR 
INCLUDE  HOUPLT 
INCLUDE  TBLH0R 

DATA  IBLANK/’  '/*  IDTITL/' TITLE 

C 

NAMELIST  /OMPLOT/  UATFIL. ISTASH. ILL, JLL, ILE. ILU.JLN, JLS, ITYPE,PLH. 
1 NUMiJP. LIATPEN. SAMPLE. OVRLAY,NCON,  TEXT,  ISTOP 

C 

C**  BLOCK  IN  TERRAIN  AND  UIND  ARCHIVE  HEADERS: 

CALL  BLKINCTHDRSZ.NNBLK. l.MICTRF. 1ST) 

CALL  BLKIN(HDRSIZ.RCOUHT, l.MOTFIL, 1ST) 

C 

Cm«h<  initialize  plot  PARA^ETER'S  AND  PLOTTER: 

NUIPLT  • 0 
ISTAK  = 0 
CALL  GOPLOT 
URITEfXOTFIL, 1000) 

C 

C**  SUPPLY  DEFAULT  VALUES: 

UATFIL  = MDTFIL 
ILL  - 40 
JLL  “ 40 
ILE  » 40 
ILU  * 1 

JLN  » 40 
JLS  - 1 

PLH  = 25.0 
NUMUP  • 1 

UATPEH  = 3 

NCOH  « 8 

SAMPLE  » 1 
OVRLAY  « 0 

ISTQP  = 0 

C 

25  CONTINUE 
DO  30  I ”2.6 
TEXT (I ) “ IBLANK 
30  CONTINUE 

TEXT(l)  • IDTITL 
C 

C**  READ  INPUT 

READIXINFIL, OMPLOT, EHD-150) 

IF(ISTOP.EQ.l)  GO  TO  150 
NGRD  =■  ILL*JLL 

URITE(XOTFIL,2000)  UATFIL. ISTASH, ILL. JLL. ITiPE. UATPEN, NUMUP, PLH. 
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1 OVRLAY,NCON, SAMPLE 

C 

CALL  RESET(ISTAK) 

C-K*  BRANCH  TO  INDICATED  PLOT  JOB 
IFCITYPE.EQ. D CALL  TERCN 
if(ITy'PE.eq.2)  call  TMPCN 
IF(ITYPE.EQ,3)  CALL  STRMCN 
IF(ITYPE.E0.4)  CALL  PLGVEC 
IFCITt'PE.EQ.S)  call  THREED(ISTAK) 

C 

URITE(KOTFIL.3O00)  ILE. ILU.JLN, JLS, IPR-JPR 
UR  I TE ( XOTF I L . 4000 ) TEXT, NUMPLT 
C 

GO  TO  25 
150  CONTINUE 
C 

CALL  EMDPLT 
RETURN 
C 

1000  FOPMAT'c  ISTART  PLOT  JOS:  OME/EC' //) 

2000  FORIlATi.'  NAMELIST  INPUT:'-"  FILE  NUMBER: ' .TZS.'UATFIL  -',140.18/ 

1 ' ARCHIVED  RUN  NUMBER T25, ' I STASH  -'.T40.I8,- 

2 • BLOCK  IN  DIMENSIONS: ' ,T25, ■ ILL  =' . T40, I3/T25. ' JLL  -'.T40, 

3 1 3,- ' TYPE  OF  PLOT : ' , T25 , ' I T'.'PE  - ' . T40 . 1 3/ 

4 ■ PEN  COLOR:'.  T25,  •I.JATPEN  -'.T40,I3/ 

5 • STACKING  FLAG : ' , T25, 'NUMUP  -•.T40.IS/ 

3 • PLOT  HEIGHT: • .T25, 'PLH  - ' , T40, F8 . 1/ 

7 ' OVERLAY  FLAG : ' , T25 . ' OVRLAY  = ' , T40 . 13/ 

3 ' NUMBER  OF  CONTOURS:',  T25, 'NCON  ='.T40,IS/ 

9 ' SAMPLING  FLAG:’,  T25, 'SAMPLE  -'.T40,ia//) 

3000  FOPMAT(/'  GRID  DIMENSIONS: ' ,T25. ’ ILE  =•,  T40. IS/ 

1 T25,'ILU  =’,  T40,I3/ 

2 T25,'JLN  T40, 13/ 

3 T25,'JLS  T40,I3/ 

4 • ACTUAL  PLOT  D IMENS IONS : ' . T25, ' IPR  -'.T40,I3/ 

5 T25.’JPR  -',T40, 13//) 

C 

4000  FGRMAT(/'  PLOT  TITLE:'  .T25.6A6."  PLOT  NUMBER  ',12,'  COMPLETED'//) 
C 

END 
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C0r-IPILER(DIAG=3) 
SUBROUTINE  RESET(ISTAK) 


INCLUDE  FILES 
INCLUDE  HOIJPLT 

THIS  ROUTINE  RESETS  THE  ORIGIN  FOR  EACH  PLOT  JOB 
CONTROLLING  PHRhMETERS  ARE  THE  OVERLAY  FLAG. STACKING  FLAG- 
NUriBER  OF  PLOTS.  AND  PLOT  HEIGHT. 

IF. OVPLAY.EQ, 1)  RETURN 
II  = ISTAkVNUMUP 
ISTAK  =>  ISTAK-I  U'NUTnjP 
IFi:  ISThK.EO.O)  call  RSTR(2)^ 

IF'.  ISTAK. NE.0)  CALL  PL0T<0.  ,OLDTOP+l  .0.-3) 

NUllPLT  = NLIMPLT  + 1 
ISTAK  =>  ISTAK  + 1 


RETURN 

ENI- 
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C0MPILER(DIftG=3) 
SUBROUTINE  TERCN 


j 

I 


INCLUDE  FILES 
INCLUDE  HOIJPLT 
INCLUDE  TBLHDR 
INCLUDE  UOPKl 
INCLUDE  CONV 
INCLUDE  U0RK2 
C 

C**  DETERMINE  FILE  BLOCK  NUMBER  FROM  FILE  RUN  NUMBER 
IBLOCK  - 2>t<ISTt:^SH 
C 

c:k*  block  in  hnd  prep  data 
CALL  DPREPl 

CALL  DPREP2(U0RK2. IBLOCKj 
C 

initialize  PLOTTER  AMD  SET  PLOT  PARAMETERS 
CALL  PLOTd.O,  1.0,3) 

NDEC  =■  -1 
PLTHT  = PLH 
HCONT  = -NCOH 
NSM  = 3 
CALL  NElJPNdJATPEN) 

C 

CK*  CALL  CONTOUR  PLOTTING  ROUTINE 

CALL  KSOCON (U)0RI<2, UORPs  1 - IPR . JPR , PLTHT, NCONT, CONV, NDEC, NSM) 
C 

Ch<:«  set  OLDTOP  for  POSSIBLE  STACKING 
OLDTOP  - PLH  + 3.5 
C 

C*.'!<  ENCODE  AND  PLOT  TITLE 

ENCODE(3b,2000,TE:\T( 1) . ID,EPP=200)  NUMPLT, ISTASH 

;iT  = 1.0 

VT  = PLH  +2.0 

CALL  NEUPN(2) 

IF(OVRLAV.NE.  1)  CALL  SYMBOL  (XT.. YT,  . 15 . TE:<T(  1 )' . 0 .0, 3S) 
RETURN 
C 

200  LiP  I TE  ( XOTF I L , 1 OOO ) 

RETURN 

C 

1000  FOFMATi/'  TITLE  ENCODING  ERROR'-"/) 

2000  FORMATC 'TERRAIN:  PLOT  * = '.IS,'  TER  # = ’.12) 

C 

END 
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C0MPILER(DIAG»3) 

SUSROUTIHE  PLOVEC 
C 

INCLUDE  HOLJPLT 
INCLUDE  FILES 
INCLUDE  MRCHDR 
INCLUDE  iJGRI.2 
INCLUDE  L!0RK3 
C 

D li  !ENS  ION  MC 1 ) . ?( 1 ) , VX(  1 ) , VY(  n 

EQUIVALENCE  OJORKZ';  1) /,<a ) ) . (U0RK3(  1)  ,Y<:  1) ) , (u)0RK4(  D .VX(  1) ) , 
1 (UOPKSCD-VYCl  j) 

DATA  SX.SY-.SUVLANGL  /1 .0,  1.0.1.0,15./ 

■k:;<  compute  BLOCK  NUMBER  FROM  RUN  NUMBER 
IBLOCK  = 3'KISThSH 

CALL  DPPEPl 
IPR  = IPP-1 
JPR  = JPR-1 
XINT  = PLH/FLOAT(JPR) 

CALL  DPPEP3(IFR,  JPR.X.Y.VX.W.  IBLOCK. XINT) 


-K*  INITIALIZE  PLOTTER  AND  SET  PLOT  PARAMETERS 
CALL  NEIJPN(IJATPEN:i 
CALL  PLOTC 1 . 0, 1 . 0. -3) 

CALL  PL0T(X(lj,Y(l),3) 

NVEC  = I PR'*:  JPR 
ALEN  - . UXINT 

CALL  VECPLT(X, V, '•/X. W, NVEC. SX. SY .SUV. ALEN. ANGL) 

CALL  PLOT(-1.0.-1.0.-3:i 

**  SET  OLDTOP  FOR  POSSIBLE  STACKING 
OLDTOP  = PLH  + 3.5 
C'K*  ENCODE  AND  PLOT  TITLE 

ENCODE(36.3000.TEXT( 1). ID.ERR-200)  DELTAOC ISTASH). 

1 TERBLK(ISTASH).  ISTASH 

XT  - 1.0 
YT  » PLH  + 2.0 
CALL  NELJPN(2> 

IF(OVRLAY.NE. n CALL  SYMBOL(XT,YT. . 15. TEXT( 1) .0.0.36) 

ENCODE (36. 2000. TEXT(l). ID.ERR-200)  XU I ND( ISTASH) . MJ I ND( ISTASH) 

XT  - 1.0 

YT  • PLH  + 2.25 

IFCOVRLAY.NE.  1)  CALL  S'lTieOLCXT.YT. . 15. TEXTC 1)  .0.0,36) 


C 

RETURN 

200  URITECXOTFIL. 1000) 

RETURN 

C 

1000  FORMAT!/’  TITLE  ENCODING  ERROR’//) 

2000  FORMAT(’DPIVING  UINDS:  VE-  ’.F5.1.'  VN-  ’.F5.1) 

3000  FORMATC’BUOY  -’.FS.l.’  TER  * - ’.12.’  UND  * - ’.12) 
END 


D-121 


C0MPILER(DIAG-3) 

SUBROUTINE  THREED ( ISTAK) 

C 

INCLUDE  TBLHDR 
INCLUDE  FILES 
INCLUDE  HOUPLT 

INCLUDE  U0RK2  , 

INCLUDE  U0RK3 
C 

DATA  ANGV,'40.0/,  FLAT/- 1.0/.  EYE/4.0/ 

REAL  ANGH(8)/0. 0,45. 0.90.0. 135.0. 180.0.225.0.270.0,315.0/ 

C 

ISTAK  = 0 
CALL  DPREPl 
10  =■  NCON 

IF( ( IQ.LT. 1 ) .OR. ( IQ.GT.3) ) IQ  = 6 
C 

IBLGCK  = 2--t<ISTASH 
CALL  DPPEP2(U0RK2. lELOCK) 

C**  FIND  MINIMJii  ELEVATION 
N = IPPKJPP 
PNIN  = I.OEIO 
DO  100  I=1,N 

I F C UOPK  2 ( n . LT . RM I N j Rf  l I N =iJ0RK2  ( I ) 

100  CONTINUE 

DO  150  1=1.N 

l.■IOP|■;2l'I■  = i.JGPi:2(I)  - PMIN 

150  CONTINUE  , 

C 

Ck:k  encode  and  plot  title 

ENCODE' 3b. 2000. TEXT':  i:i  . ID. ERR-200)  NUMPLT.  ISTASH 

NT  ’1.0  I 

YT  = 11.0 
CALL  NEl;PNi,2;i 

CALL  bVtIBOLOlT.YT,  .21.TE;;T(n.0.O.36) 

GO  TO  201 

200  LiPITECYOTFIL.  1000) 

201  CONTI HUE 
C 

OLDTOP  =0.0 

CALL  PLOT(2.0.2.0,S)  ! 

CALL  NEUPNCUATr'EN)  * 

CALL  EZSRFC(IJ0PK2. IPR. JPR, ANGH( IQ) . ANGV. FLAT. EYE.U0RK3) 

RETURN 
C 

1000  FORMATC/'  TITLE  ENCODING  ERROR'//) 

2000  FOPMAT(' TERRA  IN:  PLOT  # • ' , 12. ' TER  ♦ - ' . 12) 

C 

END 

> I 

I N 

- I i 


n_ioo 


r 


C0MPILER(DIAG-3) 

SUBROUTINE  STRMCN 
C 

INCLUDE  FILES 
INCLUDE  HOUPLT 
INCLUDE  MRCHDR 
INCLUDE  IJORKl 
INCLUDE  IJ0RK2 
INCLUDE  tJ0RK3 
INCLUDE  CONV 
C 

C l'*  DETERMINE  FILE  BLOCK  NUMBER  FROM  FILE  RUN  NUMBER 
I BLOCK  » 3* I STASH 
C 

C**  BLOCK  IN  AND  PREP  DATA 
CALL  DPREPl 
IPR  = IPR-1 
JPP  =■  JPR-1 
HXIHT  = .5*PLH/JPR 
call  DPREP2(U0RK2. IBLOCK) 

IBLOCK  = IBLOCK+1 

CALL  DPREP2(U0RK3. IBLOCK) 

C 

C'k*  INITIALIZE  PLOTTER  AND  SET  PLOT  PARAMETERS 
CALL  PLOTC 1.0+HXINT. 1,0+HXINT,3) 

5PLH  * PLH-2.0*HXINT 
FLTHT  = -SPLH 
AL  = .OLkSPLH 
CALL  NEUPNiUATPEN) 

C 

C**  CALL  STREAMLINE  PLOTTING  ROUTINE 

CALL  STRMLN(Lj0PK2.lJ0PK3,  IPR.  JPR,U0PK1.1J0RK4.U0RK5.AL.PLTVIT) 
C 

IF(NCON.EQ.a)  GO  TO  150 
C**  COMPUTE  VELOCITt  MAGNITUDES 
DO  100  I-l.IPR 
DO  100  J-l.JPR 
INDEX  - I + (J-1)*IPR 

UORKK  INDEX)  - SQRT(U0RK2(  INDEX)**2+I.I0RK3(  INDEX)**2) 

100  CONTINUE 
C 
C 

C'K*  INITIALIZE  PLOTTER  AND  SET  PLOT  PARAMETERS 
CALL  PLOTC 1.0+HXINT, 1.0+HXINT.3) 

NDEC  - 1 
PLTHT  • SPLH 
NCONT  - -NCON 
N5M  - 3 
CALL  NEUPM(l) 

C 
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Ci<M<  CALL  CONTOUR  PLOTTING  ROUTINE 

CALL  KSDCON ( UORK 1 , 'JORKZ . I PR . JPR . PLTHT, NCONT, CONV- NDEC . NSM) 

C 

150  CONTINUE 

C^tcK  SET  OLDTOP  FOR  POSSIBLE  STACKING 
OLDTOP  « PLH  + 3.5 
C 

C«  ENCODE  AND  PLOT  TITLE 

ENCODE (36. 3000. TEXT (1)  . ID.EPR=20O''  DELTACK  ISTASH). 

1 TERBLK ( I STASH ) . I STASH 

XT  » 1.0 
YT  - PLH  + 2.0 
CALL  NEUPN(2) 

IF(OVRLAY.NE.  1)  CALL  SYflEOL T.  VT.  . 15. TEXTC 1 ) .0.0. 36) 
ENCODE(36.2OO0.TEXT(  1) , ID. ERR  =200)  ;4.JIND(  ISTASH)  ..'AJINDC ISTASH) 
XT  = 1.0 
YT  = PLH  + 2.25 

IFCOVRLAY.NE. 1)  CALL  SYMBOL (XT. YT, . 15. TEXT( 1) .0.0,36) 

C 

RETURN 

200  URITE(XOTFIL. 1000) 

RETURN 

C 

1000  FORMAT!/'  TITLE  ENCODING  ERROR'//) 

2000  FORMATCDRIVING  UINDS:  VE=  '.FB.l.'  VN-  '.F5.1) 

3000  FORMAT('BUOY  »'.F6.1.'  TER  * =■  '.12,'  UND  * - ',12) 

END 


C0MPILER(D1AG=3) 
SUBROUTINE  DPREPI 
C 

INCLUDE  HOUPLT 
C 

C*;!<  DETERMINE  PLOT  DIMENSIONS 
IPR  - ILE  - ILU  +1 
JPR  - JLN  - JLS  +1 
IF (SAMPLE. EQ. 1)  GO  TO  75 
IPR  ■ (IPR+1) /SAMPLE 

JPR  ■ (JPR+1) /SAMPLE 

75  CONTINUE 
C 

RETURN 

END 
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C0MPILER(DIAG»3) 
SUBROUTINE  DPREP2(U. IB) 
C 

INCLUDE  HOIOPLT 
INCLUDE  UORKl 
C 

DII'ENSION  UCl) 


CALL  ELK  IN  (NGRD,  DORK  HI).  IB.  UA.TF  IL.  1ST) 

» C 

DO  100  I-l.IPR 
DO  100  J=1,.JPR 

inde:-;i  = ( i-d  ksample  + ilu  + (cj-d-ks ample  + jls  - i)*ill 

INDEXE  = ! + (J-l):*cIPR 
IJCINDEXE)  = UORKHINDEXl) 

100  CONTINUE 

c 

RETURN 

END 


C0MPILER(DIAG»3) 

SUEPOUTINE  DPREP3( IP. JP.X.Y.VX.VY. IB.XINT) 

C 

DIMENSION  XnP,  JP).YMP.JP).  W(IP.JP).  W(IP.JP) 

c 

CALL  DPPEPZCVX. IB) 

IS  » IB+l 

CALL  DPREP2(VY. IS) 

C 

VMAX  - 0.0 
DO  50  1 = 1,  IP 
DO  50  J«1.JP 

VMAG  - VX(I.J):h>i<2  + 7Y(  I,  J)!M<2 
I P ( VMAG . GT . VT-IAX)  VtWX- VMAG 
50  CONTINUE 

VMAX  - SQRT(VMAX) 

C 

DO  100  I-l.lP 
DO  100  J-l.JP 

VXCI.J)  ■ VX(;i.J)*XINT/VMAX 
VYd.J)  - VY(I,J)*XINTxVMAX 
XCI.J)  • (FLOAT(  I)-.5)'t<XINT  - .5>t<VX(I.J) 

Y(I.J)  • (FL0AT(J)-.5)>kXINT  - .S'KVYCI.J) 

100  CONTINUE 
C 

RETURN 

END 
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D.6  TERRAIN  PROCESSING  ROUTINES  (TERPRO)  OF  MRC*UTILITY. 


D.6.1  Procedure  Elements  of  Terrain  Processor  (TERPRO) 
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TBLHDR  PROC 

PARAMETER  IDIM-50,  THDRSZ-251 

COMMON  ^ TBLHDR/  NHBLK , HD  I MXH ( I D I M) . ND I MYH ( I D I M) , DELH ( I D I M) . 

1 SUUTMJ<(IDIM).SIJUTMY(IDIM) 

END 

BIGHDR  PROC 

PARAMETER  NPNTS=b00.  BHDRSZ»1241 

COMMON  .-'BIGHDR/  DUM(40)  - XPNT(NPNTS) , YPNTCNPNTS) . NDBC 

END 

INPUT  PROC 

COMMiON  •'INPUT/  UTHX.UTMY,NSQRX,NSQRY.  lOUAD 
END 

INPEUR  PROC 

COMMON  /INPUT/  UTMX.UTMY. IDMN, JDMN 

END 

FILES  PROC 

COMMON  /FILES/  XIHFIL^XOTFIL-BIGFIL.MOTFIL 
INTEGER  XINFIL.XOTFIL.BIGFIL-MOTFIL 

END 

GRID  PROC 

COMMON  /GR I D/ND  I M>C.  ND I W.  DEL . D I SPX,  D I SPY.  NAWCE 

END 

BLKS  PROC 

corf  ION  ./ELKS/  ELK  ID  (9) 

INTEGER  ELK  ID 

END 

TERAIN  PROC 

COrflON  /TERAIN/  H(4O..40) 

END 

TERRUF  PROC 

PARAMETER  IEUR-5 1 . JEUR-3 1 

COMMON  /TERRUF/  H ( lEUR. JEUR) . ROUGH( lEUR. JEUR) . IDATA( lEUR. JEUR) 

END 
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COMPILER  CD  I AG-3) 

C PROGRAM  BLKDRV 

C 

INCLUDE  BIGHDR 
INCLUDE  TBLHDR 
INCLUDE  INPUT 
INCLUDE  FILES 
C 

NAhELIST  /INPUT/  UTMX.UTMY.NSORX.NSQRY.  IClUAD.  ISTOP 
C 

C ASSIGN  FILE  LOGICAL  UNIT  NUMBERS 

XINFIL  ■ 10 
KOTFIL  • b 
BIGFIL  • 1 

MOTFIL  • - 2 
MICTRF  • lb 
C 

C READ  HEADERS  INTO  COMMON  BLOCKS 

CALL  BLKIM(BHDPSZ,DUM(1). 1-BIGFIL. 1ST) 

CALL  BLKIM(THDRSZ.NNBLK, 1. MOTFIL. 1ST) 

IF(NNBLK.E0. IDIM)  GO  TO  10 
C 

C READ  INPUT  DESCRIBING  TERRAIN  BLOCK  TO  BE  CREATED 
1 ISTOP  - 0 

READ  (KINFIL. INPUT.END-10) 

IFdSTOP.EQ.  1)  GO  TO  10 

URITE(XOTFIL.200O)  UTMX.UTMY.NSQRX.NSQRY. lOUAD 
C 

CALL  BLKMGR 
C 

GO  TO  1 
C 

10  CONTINUE 

C OUTPUT  UPDATED  HEADER  BLOCK 

CALL  BLKOUTCTHDRSZ.NNBLK. 1, MOTFIL. 1ST) 

IJRITECXOTFIL.  1000) 

C 

1000  FORMAT!//'  MRC  TERRAIN  FILE  GENERATION  COMPLETE') 

2000  FORMAT!///'  INPUT:'/'  UTMX' . T30. F8 , 3/'  UTITf"  ..T30.F8.3/ 
2 NSQRX'.TSO.  13/'  NSGIRY' . T30.  13/'  IQLIAD' . T30.  13) 

C 
C 


END 
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C0MPILER(DIPlG-3)  \ 

SUBROUTINE  BLKMGR  ! 


INCLUDE  INPUT 
INCLUDE  BIGHDR 
INCLUDE  FILES 
INCLUDE  TBLHDR 

INCLUDE  GRID  'J 

INCLUDE  TERAIN 
INCLUDE  BLKS 

DATA  HLO.'1000./.  HD  IF/3000./ 


IFLG  » 0 
CALL  REGRID 
CALL  BLOCKO(IFLG) 
IF(IFLG.HE.-l)  GO  TO  10 
URITECXOTFIL,  1000) 
RETURN 
10  CONTINUE 
CALL  PASTE 


SET  HEADER  VALUES 
NNBLK  • h-IODCNHBLK,  IDIM)  + 1 
NDIMXH(NNBLK)  - NDIMX 
NDIMYH(NNBLK)  - NDIIti'' 

DELH (NNBLK)  « DEL 
ITKiP  = BLKID(l) 

SIJUTHX(MHBLK)  - XPNT(  ITMP) +D ISPX 
SL.JUTf1Y( NNBLK)  - YPNT(  ITMP) +D ISPY 
C 

ITER  • NNBLKm^2 
IRUF  • ITER+1 

CALL  BLKOUT(1600>H(1. 1) , ITER.MOTFIL, 1ST) 

DO  100  I « 1,40 
DO  100  J«l,40 

H(I,J)  > .4.ic(H(I.J)-HL0)/HD1F  + .1 
100  CONTINUE 

CALL  BLKOUT(1600,H(1. 1), IRUF.MOTFIL. 1ST) 

C 

UPITE(XOTFIL,20O0)  NNBLK. ND IMXHCNNBLK) .ND IMYH(NNBLK) .DELH(NNBLK) , 
1 SUIJTMX(NNCLK),SUUTMY(  NNBLK) 

C 

1080  FORMATC//'  NO  BLOCKS  GENERATED'//) 

2000  FORKIATC//'  RUN  NUMBER’ .TSO.  IS/ 

1 ' X DII1ENSI0N',T30.  18/ 

2 • Y DIMEHSION’,T30, IB/' 

3 ' GRID  SPACING’. T30,F8. 2.  ' METERS’/ 


4 

■ SU 

UTM 

X COOrDINATE',T30.F3.2.  ' KM'/ 

4 

■ SU 

UTM 

Y COr;fiDINATE',T30.F3.2,  ' KM'/) 

RETURN 

END 

C0MPILER(DIflG-3) 

SUBROUTINE  REGRID 

INCLUDE  INPUT 
INCLUDE  GRID 
INCLUDE  FILES 

DNTA  STDDEL/63.5/ 

M » MPX0(NSQRX.NSQRY) 

IFCIQLIPD.NE.O)  GO  TO  10 

IF(M.EQ.l)  NAVRGE-2 
IF(M.EQ.2)  NAVRGE-4 
IFd-I.EQ.o)  NAVRGE-5 
NO  “ S0/NhVRGE 

DISP  = (NAVRGE-D=X.O005'KSTDDEL 

NDItiX  • NQm<NSCIRX 

NDIMY  - NQ:kNSQRY 

IF  (ri.EQ.3)  NDIMX  = 40 

IF  (M.EQ.3)  NDIMY  - 40 

DEL  - STDDEL^«NAVRGE 

DISPM  • DISP 

DISPY  - DISP 

RETURN 


DISP  ■ STDDELi<.04 
DISPX  = G 
DISPY  • 0 

I F ( IQUAD . EQ . 2 . OR . IQUAD . EO . 3)  D ISPX-D ISP 
IF(IQUAD.EQ.3.0R. IQUAD. EQ. 4)  DISPY-DISP 

NDIMX  • 40 
NDIM'f'  - 40 
DEL  - STDDEL 
NAVRGE  - I 
RETURN 
END 


n o o 


c 


c 


c 

c 


C0MPILER(DIAG-3) 

SUBROUTINE  BLOCKO(IFLG) 

INCLUDE  BLKS 
INCLUDE  BIGHPR 
INCLUDE  INPUT. 

INCLUDE  GRID 

PARAMETER  FFF»39 

DIMENSION  I DXSTA ( FFF ) , STADST ( FFF ) . XX ( FFF ) . YY ( FFF ) 

DIMENSION  IDTrF(5).DSTMP(5) 

DATA  DSTMAX-'M.S.'.  GRDSIZ/5.0S/ 

OBTAIN  LIST  OF  GRID  POINTS  CLOSE  TO  UTM?<,UTMY 
CALL  CLOSTN (UTMX, UTMY..XPNT,  VPNT. HSTATN,  IDXSTA, STADST.NDBC. 
1 DSTMAX) 

IFCNSTATN.LE.O)  GO  TO  105 


I 

( 

1 

i 


I I 


( 

I 


SAVE  CLOSEST  POINTS 
DO  50  I-l.NSTATN 
IT^F  • IDXSTACn 
XX(I)  - XPHT(ITMP) 

YYin  - YPNT(ITMP) 

50  CONTINUE 
C 

GO  TO  200 
105  CONTINUE 
IFLG  » -1 
RETURN 
C 

200  XCORNR  • XX(1) 

YCORNR  - YY(I) 

C 

C DETERMINE  INDICES  OF  BLOCKS  DESIRED 
K - 0 

DO  300  I-UNSQRX 
DO  250  J-1.N3QRY 
X0  - XCORNR  + GRDSIZi<(I-l) 

Y0  - YCORNR  + GRDSIZ>K<J-1) 

CALL  CLOSTN(X0.Y0-XX,YY,NSTMP, IDTMP.DSTTF.NSTATN, 1 .0) 


i 


5 


i 

\ 


c 


C0MPILER(DIAG-3) 
SUBROUTINE  PASTE 


INCLUDE  TERAIN 
INCLUDE  BLKS 

■ INCLUDE  INPUT 

INCLUDE  GRID 
C 

» DIMENSION  IDATA(3,3) 

DATA  IDATA  /40. 40. 40. 20-20, 20,  16. 16.0/ 
C 

NTMP  = 38/NAVRGE 

MAXNSQ  = MAX0(NSQRX.NSQRY) 

K = 0 
C 

DO  200  IN=1.NSQRX 
DO  100  JN=1.HSQRY 
l<  = k'+l 

NBLK  « BLKIDCK)  + 1 
ILIM  = I DATA ( IN, MAXNSQ) 

JLIM  - IDATA (JN. MAXNSQ) 

IBASE  » NTMP;t<(  IN-1) 

JBA3E  = NTMP>*!<JN-1) 

C 

CALL  FILTERC IBASE. JBASE. ILIM.JLIM.NBLK) 
109  CONTINUE 
200  CONTINUE 
C 

RETURN 

/ END 


I 
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C0nPILER(DIPiQ«3) 

SUBROUTINE  FILTERC IBASE. JBASE, ILIM, JL!M,NBLK) 
C 

INCLUDE  TERhIN 
INCLUDE  INPUT 
INCLUDE  FILES 
INCLUDE  grid' 

C 

DIMENSION  IBL0CK(80.80) 

CALL  BLKIN(b400..  IBLOCK ( 1 , 1 ) , NBLK.3IGFIL,  ISTS) 
C 

100  IFCIQUAD.EQ.O)  GO  TO  200 


IDISP  = 0 
JDISP  = 0 

IFCIQUAD.EO.Z.OP. IQUAD.EQ.S)  IDISP=40 
IF (I CUAD . EQ . 3 . OR . I QUAD . EQ . 4)  JD I SP  =43 
DO  110  .I=1.JLIM 
DO  no  ni.ILIM 
II  = I^iDISP 
JJ  = j+JDiSP 

no  HCI.J.i  = IBLOCK(JJ..  I I,i;k.3Q4S01 
RETURN 

C 

200  N = NAVRGE 

DO  250  T=i,JL!M 
DO  259  I=l,ILIM 
1 1 = N-n  + 1 

J1  - NKJ+I  ' 

AV  « 0.0 

DO  205  K=1.N 

DO  205  L-l.N  ' 

12  - 1 1-1; 

J2  • Jl-L 

AV  » hV.'+IBLQCK(  12. J2'> 

205  CONTINUE 

AV  • h'AhNUI) 

I COUNT  • 0 

sun  = 0 
DO  210  1^=1. ;i 
DO  210  L=1..N 
12  = n-K' 

J2  • Jl-L 

DIFF  . IBL0CK(I2.J2)-AV 
IF (D IFF . GT. 0 . 0)  ICCUNT= ICOUNT+1 
SUM  - SIJM+DIFF!;r.«2 
210  CONTINUE 

SD  « SORT ( SUM/ (hDKN-m 
AVHT  = AV 

t 

I 

f 


f 


1 

i 


HTESTH  • (3>HN»<N)/4 
NTESTL  - (N*N)/'4 

IF CICOUHT.GE. HTESTH)  flVHT-AVHT+SD 
IF (ICOUNT.LE. NTESTL)  AVHT-AVHT-SD 
JM  = J+JERSE 
IM  = I+IBASE 
H(JM. IM)  * AVHT*. 304801 
250  COHTINUE 
RETURN 
END 


COnPILERfDIAG-3) 

SUBROUTINE  CLOSTN(XIN.YIN,X.Y.NSTATN. 

1 IDXSTA,STADST,STNMAX.DISTMN) 

C 

c 

c 

DIMENSION  X(1),Y(1),  IDXSTAC 1) -STADSTC 1) 

C 

INTEGER  STNMAX 
C 

C DETERMINE  THE  CLOSEST  STATION  UITHIN  DISTANCE  DISTMN  AND  ORDER 
C STATIONS  IN  ASCENDING  ORDER  OF  DISTANCE 
C 

NSTATN  - 0 
XSOURS  = XIN 
•i-'SOURS  =■  YIN 
M = STNMAX 
DO  100  I-1,N 

C CALCULATE  DISTANCE  FROM  RELEASE  TO  STATION 
D = SDRT((X'(I)-XS0UES)«2+(YCI)-","S0URS):i<>K2) 

IF  CD  .GT.  DISTMN)  GO  TO  100 
NSTATN  - NSTATN  +1 
ID/C3TACNSTATN)  » I 
3TADSTCNSTATN)  = D 
100  CONTINUE 

IF  (NSTATN  .LT.  2 ) GO  TO  120 
DO  no  J=»2, NSTATN 
DO  no  I »2.. NSTATN 

IF  (STADSTCI-l)  .LE.  STADSTCD)  GO  TO  110 
D = STADSTCD 
K • id;:sta(I> 

STADSTCD  « STADSTCI-1) 

IDXSTACD  - ID>‘STA(I-D 
STADSTCI-D  » D 
ID'  STAC  I~l)  - K 
no  CONTINUE 
1*0  FETUFN 
£‘'j 
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C PROGRAM  BLKDRV 

C 

INCLUDE  TBLHDR 
INCLUDE  INPELIR 
INCLUDE  FILES 
C 

NAMELIST  yINPUT/  UTM.X. UTMY.  IDMN.  JDMN,  ISTOP 
C 

C ASSIGN  FILE  LOGICAL  UNIT  NUMBERS 

XIHFIL  - 10 
XOTFIL  ■ 6 

MOTFIL  - 2 

MICTRF  ■ lb 


READ  HEADER  INTO  COMMON  BLOCK 
CALL  BLKIH(.THDRSZ-NNBLK.  1,I«TFIL-  ISTl 
IFlNNBLK.EQ. IDIM)  GO  TO  10 
C 

5 CONTINUE 
C**  INITIALIZED 
I STOP  » 0 
IDMN  - 51 
JDMN  - 31 

C READ  INPUT  DESCRIBING  TERRAIN  BLOCK  TO  EE  CREATED 
READ  (XINFIL. INPUT. END- 10) 

IFdSTOP.EO.  1;  GO  TO  10 
WRITEO:OTF1L.2COO)  UTTt  I.UTlTi'.  imi.  JDMM 
C 

CALL  BLKMGR 
C 

GO  TO  5 
C 

10  CONTINUE 

C OUTPUT  UPDATED  HEADER  BLOCK 

CALL  BLKOUTCTHDPSZ.HHBLK. 1. MOTFIL, 1ST) 

UP  I TE (XOTFIL.  1000) 

1000  FORMATC//’  MPC  EURO  TERRAIN  FILE  GEMEPATION  COMPLETE') 
2000  FORMAT (y//'  INPUT:’/'  UTIT'C  , T30.F3 . 3 • ’ UTTIi'' .T30.FS.3.' 
2 ’ IDMN' .T30. 18/'  JDMN ' . T30. 13) 

C 

E1<D 


D-136 


c 

c 


SUBROUTINE  BLKMGR 


INCLUDE  INPEUR 
INCLUDE  FILES 
INCLUDE  TELHDR 
INCLUDE  TERRUF 
PARAMETER  lOUT  - lEUR’XJEUR 
C 

DATA  DEL.-MO0.0/ 


CALL  CORNERCIS.  JS.-XPNT.YPNT) 

IFdS.LT.O)  GO  TO  50 
IFCJS.LT.O)  GO  TO  50 
IF( IS+IDMN.GT. 101)  GO  TO  50 
IFiJS+JDMN.GT.51)  GO  TO  50 
GO  TO  100 
50  CONTINUE 

URITE'L-'OTFIL.  1009) 

RETURN 
100  CONTINUE 

CALL  CARVECIS.JS. IDATA, IDMN.JDMN) 

NGRD  = IDM:i>KJDMN 

CALL  UNPACKi:  I DATA.  H,  ROUGH,  NGRD) 

C 

C SET  HEADER  VALUES 

NN5LK  = IIODCNNBLk',  IDIM)  + 1 
NDin:-:H'NNeLK)  = idmn 
NDIIANiN.NBLk)  • JDMN 
DELH'INHBLK)  = DEL 
SIJUTM):(NNBLK)  • :PHT 
SIJUTMy'CNNBLK)  - VPNT 
C 

ITER  - NNBLTt'2 
iPUF  • ITEP+1 

CALL  BLICOUTi  IOUT,H(  1.  1)  . ITER.MOTFIL.  1ST) 
call  BLKOUTC lOUT.ROUGHtl, 1) . IRUF.MOTFIL, 1ST) 

C 

LR ! TE 1 VOTF IL, 2000)  Nl'BLK . ND  IM^LH  aiNBLK') . ND  IiriH aiNSLK) . DELH  (NNBLK) . 
1 Si,IUTIt<(NMBLK)  .S'JUTMYCNNBLK) 


1000  FOPt:HT(.'.''  NO  BLOCKS  GENEPATED'/-') 

2C00  FOrMATV."  RUN  NUMBER*  . T30 . 18- 

1 • :<  Dir-ENSION*  ,T30, 18^ 

2 ■ Y DIMENSION' .T30.  I3-' 

3 ■ GRID  SPACING' .T30.F9. 2,  ' METERS'/ 

4 • SU  UTM  X COORDINATE' .T30,F8, 2.  ’ KM'/ 

4 ' SU  UTM  Y C00PDINATE'.T30,F8.2.  ' KM'/) 

C 

RETURN 

END 
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C0MPILER(DIflG»3) 

SUBROUTINE  CORNER ( IS. JS- XPNT. YPNT) 

C 

INCLUDE  INPEUR 
C 

DATA  DEL/0.1/.  XCORN/552.4/.  YCCPN/5592.b65/.  fiNG/. 03932/ 
C 

Cl  = COS(PNG) 

C2  =■  SIH(ftNG) 

C 

KTTP  « (UTMX-XCOPM)/DEL 
YTMP  - (UTMY-YCOPN>/DEL 
IS  = XTMP:d+miP*C2  + .01 
JS  - -XTMP*C2+YTMP;C1  + .01 
C 

XFNT  = XCORM  + DEL^xC  IS;(C  1-JS:m:2:i 
YPNT  = 'I'CORM  + DEL-t^(  IS-t'C2+JS  i-Ci:' 

C 

RETURN 

END 


m 


C0rPlLEP<DlHG«31 
SUEPOU  I INE  ChPV E f IS . JS  • 

corriCN -riH?ccn-E.Nv.' V::, 

Dif£USION  IDhTh'  ID.'n.  jZ'II'i 


JDIM'I 


DO  3 J • 1, 
DO  b I • 1 . 
IDNTPin.J) 
6 CONTINUE 
3 COhTIN'jE 
10  CSrlTlNUE 

END 


JDIH 

iDin 

* M'.JS+J.  IS+I 


0-138 


f 


CChPILER(DliHG-3) 

S'JBPOUTINE  UNPftCPsCIDATA.H. ROUGH. MGPP) 

C 

DIMENSION  H(NGRD).POLIGH(NGRP). IDATA(NGPP).  VEG(7) 

> DATA  VEG  -.099.2.999,9.999.9.9^13,  15. 001, 7. 493, 7. 499/' 

C 

DO  10  I « l.NGPD 

' K'  • I DATA  1,1)  / IGOOQO 

L - K / 10 
K ‘ K - 10  * L 
H(I)  = L+VEG^K+l) 

ROUGH  (I)  = VEGi;K+l):k.  1 
10  CONTI HUE 

c 

RETURN 

END 


i 
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SAMPLE  INPUT  ELEMENTS  FOR  PLOTTING  (PLTPRG)  AND  TERRAIN  PROCESSING 
(TERPRO)  ROUTINES  OF  MRC*UTILITY 


•k-k*  SAMPLE  INPUT  ELEMENTS  FOR  TERRAIN  AND  PLOTTING  ROUTINES 
k^k>k  MT.TERINP 

3INPUT  UTMa=S51.3,  UW3585.7.  NSQRX»'l,  NSQRY"1-  IQUAD-0.  ISTOP-0 
SEND 

SINPUT  UTM:'>35).3,  UTMY=3585 . 7,  NSQRX-1,  NSQRY-1,  IQUAD-4,  ISTOP*0 
SEND 

SINPUT  UTMK=34S.5.  UTMV=3585.8,  NSGR><=2-  NSQRY=2,  IOUAD=0>  ISTOP-0 

ScnD 

SINPUT  UTMX=34S.5.  UTMY-3585.3.  NSQRX-3.  NSORY-3,  lOUAD-O-  ISTOP-0 
SEND 

SINPUT  UTMX-346.4,  UTMY»5580.3,  NSQRX-3.  NSQRY-3.  IQUAD-O,  ISTOP-0 
SEND 

SINPUT  UTMX-331.2,  UTMY-3591.2.  NSQRX-1,  NSORY-U  I QUAD -4,  ISTOP-0 
SEND 

SINPUT  UTM''.:=351 . 1,  UTMY-3570.5,  NSQR:<-2.  NSQRY-2,  IQUAD-0,  ISTOP-0 
SEND 

SINPUT  LlTMX-356.7,  UTrTr'-3595 . 8.  MSQRX-2.  NSORY-2,  IOUAD-0.  ISTOP-0 
SEND 

SINPUT  UTnX=356.7,  UTM'f'=3595 . 8.  MSQRX-1.  NSORY-1,  lOUAD-O.  ISTCP-0 
SEND 

SINPUT  UTMX-352.0,  UTMY-361G.2,  NSQRX-2,  NSQRY-2,  IC!UAD«0,  ISTOP-0 
SEND 

***  MT.TERINP/EUR 
SINPUT  UTMX-552.7.  UTMY-5593.3 
SEND 

***  MT.PLTINP 
SEND 

SOI -PLOT  ISThSH=1.  ILL»40,  JLL-40. 

lJATFIL-17.  ILE-40.  ILU-1.  JL:I-40.  JLS-l, 

ITYPE-4,  UATPEtl-3.  OVRLAY-O, 

NUMiP-2.  PLH-14.0.  SAMPLE-2-  NCOM-3- 
ISTOP-O 

SEND 
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